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IV 


ABSTRACT 


This  thesis  evaluates  the  usefulness  of  the  SRC-6E  re 
configurable  computing  system,  a  particular  kind  of  spe¬ 
cialized  computer,  for  the  radar-signal  processing  applica 
tion  of  generating  false  radar  images.  It  documents  the 
process  of  creating  and  importing  VHDL  code  to  configure 
the  user  definable  logic  on  the  SRC-6E,  building  on  previ¬ 
ous  work  for  the  SRC-6E.  Data  from  alternative  computa¬ 
tional  approaches  to  the  same  problem  are  compared  to  de¬ 
termine  the  effectiveness  of  a  SRC-6E  solution.  The  re¬ 
sults  show  that  the  SRC-6E  provides  no  advantage  until  the 
task  is  made  significantly  complex;  for  this  application, 
this  was  at  greater  than  64  range  bins.  This  supports  the 
hypothesis  that  the  algorithm  requires  too  much  initializa 
tion  effort  to  take  much  advantage  of  the  parallel  process 
ing  and  pipelining  of  the  SRC-6E.  An  evaluation  of  the 
SRC-6E  difficulty  of  use  is  conducted,  including  a  discus¬ 
sion  of  required  skills,  experience  and  development  times. 
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I.  INTRODUCTION  MUD  SUMMARY  OF  RESEARCH 

A.  PURPOSE 

The  specific  purpose  of  this  research  was  to  evaluate 
the  performance,  correctness,  and  ease  of  use  of  the  SRC-6E 
reconf igurable  computing  system  built  by  SRC  Computers, 

Inc.,  for  implementing  false  radar  images.  The  more  gen¬ 
eral  purpose  was  to  aid  in  establishing  a  broad  base  of 
knowledge  on  what  types  of  applications  are  appropriate  for 
implementation  on  this  type  of  machine.  The  task  of  gener¬ 
ating  false  radar  images  provides  a  readily  available  yet 
suitably  complex  algorithm  for  implementation  on  the  SRC- 
6E .  The  research  builds  on  previous  work  [1] .  The  algo¬ 
rithm  chosen  was  based  on  a  custom  chip  design  previously 
developed  by  a  f acuity/student  research  team  at  the  Naval 
Postgraduate  School  which  creates  false  target  radar  im¬ 
ages.  A  C  language  program,  written  by  Professor  Douglas 
Eouts,  was  also  available  to  use  as  a  standard  for  compar¬ 
ing  the  accuracy  of  results  throughout  the  research. 

B.  SUMMARY  OF  RESEARCH 

Reconf igurable  computing  is  defined  as  "the  capability 
of  reprogramming  hardware  to  execute  logic  that  is  designed 
and  optimized  for  a  specific  user's  algorithms"  [2] .  The 
SRC-6E  reconf igurable  computer  is  a  Linux-based  system  con¬ 
sisting  of  two  sides  labeled  A  and  B  which  each  contain 
motherboards  holding  dual  Intel  P3  Xeon  1-GHz  processors, 
1.5  gigabytes  of  memory,  and  a  SNAP  interface  card.  The 
SNAP  card  is  a  custom  interface  card  which  plugs  into  a 
motherboard  DIMM  memory  slot  and  provides  connections  to 
the  MAP  board  which  is  located  in  a  third  section  of  the 
system.  A  single  MAP  board  consists  of  two  independent 
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MAPs.  MAP,  a  registered  trademark  of  SRC  Computers,  Inc., 
is  the  name  for  the  custom  hardware.  Each  MAP  consists  of 
three  Xilinx  Virtex-I I-series  XC2V6000  FPGAs  and  24  mega¬ 
bytes  of  memory.  One  of  the  FPGAs  is  reserved  for  control 
logic  while  the  other  two,  available  for  user  programs,  are 
called  "user  logic" .  The  memory  is  split  into  six  equal 
banks,  labeled  A  through  F,  of  4  megabytes  each.  The  user 
FPGAs  are  connected  to  a  fixed  100-MHz  clock. 

Code  written  in  the  hardware  description  languages 
Verilog  and/or  VHDL  can  be  ported  to  the  SRC-6E  with  only 
minor  changes.  Several  support  files  are  required  to  help 
the  code  exploit  the  user  logic.  These  files  primarily  de¬ 
scribe  the  interfaces  to  the  code.  The  algorithm  selected 
for  the  research  described  here  was  written  in  VHDL  and 
converted  for  use  on  the  SRC-6E. 

To  evaluate  the  effectiveness  of  the  SRC-6E,  timing 
data  was  collected  from  several  implementations  of  the 
false  radar  target  algorithm.  The  first  implementation  was 
the  executable  created  on  the  SRC-6E  which  uses  the  recon- 
figurable  user  logic.  The  second  implementation  was  a  C 
program  which  performed  the  same  functionality  as  the  VHDL 
code.  This  code  was  compiled  and  executed  on  a  3-GHz  Pen¬ 
tium  4  system,  using  2  gigabytes  of  DIMM  memory  and  the 
Windows  XP  Professional  operating  system.  The  machine  used 
was  the  same  one  as  the  previous  implementation  to  allow 
comparison  of  results.  The  third  implementation  was  the 
same  C  program  running  on  the  1-GHz  Xeon  processor  on  a 
Linux  based  SRC-6E,  but  not  using  the  MAP.  Several  input 
data  sets  were  used  in  testing.  Each  data  value  consisted 
of  a  5-bit  number,  written  as  two  hexadecimal  digits,  which 
represented  an  intercepted  radar  signal.  Data  sets  con- 
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taining  32,  64,  128,  256,  512,  1024,  2048,  4096,  8192, 

16284,  32786,  65536,  131072,  262144,  and  500000  data  values 
were  used.  Five  timing  runs  were  conducted  for  each  data 
set  on  all  three  data  sources. 

The  timing  data  shows  the  SRC-6E  MAP  instruction  exe¬ 
cution  time  is  fast,  even  for  very  large  data  set  sizes. 
However,  the  total  execution  time  for  the  algorithm  studied 
was  disappointing.  The  extra  time  appeared  to  represent 
delays  in  the  system  to  prepare  and  transfer  the  data  in 
and  out  of  the  MAP.  Nonetheless,  comparison  of  the  MAP  exe¬ 
cution  times  for  the  previous  4-bin  macro  with  the  new  4- 
bin  macro  shows  an  improvement  for  large  input  set  sizes, 
suggesting  that  a  new  interface  design  can  be  more  effi¬ 
cient.  Also,  as  input  set  size  is  increased,  our  timing 
results  begin  to  converge. 

The  SRC-6E  has  a  relatively  steep  learning  curve. 

There  are  a  few  examples  in  the  documentation  and  a  very 
little  work  using  the  system.  The  errors  generated  by  the 
system  during  development  are  not  intuitive  and  cannot  be 
solved  without  previous  experience  with  solving  the  same 
errors.  There  are  no  development  tools  in  place  to  assist 
novice  users  in  programming  the  system.  So  this  is  another 
factor  to  consider  in  selecting  it  for  use.  But  for  high 
performance  on  large  data  sets,  it  still  appears  desirable. 
C.  REMAINING  CHAPTER  OUTLINE 

The  following  outlines  the  remaining  chapters  which 
roughly  follow  the  major  steps  that  were  taken  throughout 
the  research: 

•  Chapter  II  provides  background  information  and 
review  of  previous  research. 

•  Chapter  III  discusses  the  SRC-6E  architecture, 
programming  environment,  and  documentation. 
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•  Chapter  IV  discusses  modifications  to  the  origi¬ 
nal  VHDL  macro  programmed  using  VHDL . 

•  Chapter  V  discusses  porting  the  VHDL  code  to  SRC- 
6E  environment. 

•  Chapter  VI  presents  the  data  collection  methods 
and  analysis. 

•  Chapter  VII  provides  conclusions  and  future  work 
recommendations . 

•  Appendix  A  contains  the  VHDL  code  for  all  range 
bin  models. 

•  Appendix  B  contains  the  support  files  required  to 
implement  the  VHDL  code  on  the  SRC-6E. 
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II.  BACKGROUND  AND  PREVIOUS  WORK 


A.  INTRODUCTION 

This  chapter  discusses  background  information  and  re¬ 
views  previous  work,  including  the  basics  of  the  false  ra¬ 
dar  imaging  algorithm,  the  benefits  and  costs  of  pipelining 
the  algorithm,  use  of  the  chip  design  and  C  program  in  both 
the  current  and  previous  research  and  gives  an  overview  of 
the  major  steps  taken  to  improve,  expand  and  test  the  algo¬ 
rithm  using  the  SRC-6E. 

B.  FALSE  TARGET  RADAR  IMAGING  ALGORITHM 

The  algorithm  works  by  splitting  a  false  target  image  into 
several  range  bins,  as  shown  in  Figure  1  where  a  ship  is 
split  into  four  range  bins. 


Figure  1.  False  Target  Radar  Imaging  Algorithm 

Usage 


Each  range  bin  represents  a  portion  of  the  vessel. 
Greater  resolution  can  be  achieved  by  having  a  greater  num¬ 
ber  of  range  bins  for  a  given  false  target.  Usually  the 
radar-signal  travel  distance  is  different  for  each  range 
bin . 
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Based  on  knowledge  of  a  ship's  radar  image,  an  opera¬ 
tor  can  set  phase  rotation  and  gain  constants  for  each 
range  bin.  The  algorithm  begins  with  the  interception  and 
sampling  of  an  interrogating  radar  pulse.  The  sample  phase 
is  then  rotated  by  adding  a  rotation  constant  to  it.  Next, 
the  sine  and  cosine  are  calculated.  The  gain  is  then  ap¬ 
plied  to  the  results  by  multiplying  by  a  gain  value.  The 
results  of  each  range  bin  are  then  summed  up  to  produce  a 
radar  reflection  signal  at  a  given  time.  With  proper  use, 
the  ship  can  be  made  to  appear  in  a  false  position,  be  of  a 
different  type  of  target,  or  to  appear  to  be  traveling  with 
other  ships . 

C.  FALSE-TARGET  RADAR- IMAGING  CHIP  DESIGN 

We  used  a  custom  chip  design  previously  developed  by  a 
faculty/student  research  team  at  the  Naval  Postgraduate 
School  which  creates  false  target  radar  images.  The  false- 
target  radar-imaging  chip  consists  of  a  6-stage  pipeline  to 
create  a  false  radar  reflection  for  a  single  range  bin. 
Figure  2  shows  the  signal  flow  through  the  slightly  simpli¬ 
fied  version  that  was  implemented  during  the  previous  re¬ 
search  . 
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Figure  2.  False  Target  Radar  Image  Chip  Signal 


Flow 
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The  basic  steps  of  the  algorithm  are  performed  as  fol¬ 


lows  : 


1.  The  phase  sample  enters  into  register  3. 

2.  The  phase  rotation  value  enters  into  register  1, 
is  then  loaded  into  register  2,  and  is  then  added  to  the 
phase  sample  at  adder  1 .  The  results  are  then  loaded  into 
register  4. 

3.  The  contents  of  register  4  enter  the  lookup  table 
(LUT)  and  Sine  and  Cosine  results  are  calculated.  The  re¬ 
mainder  of  the  pipeline  is  split  into  two  identical  por¬ 
tions  for  each  data  result.  The  following  steps  outline 
the  path  for  the  Sine  result. 

4.  The  gain  value  enters  at  register  5,  is  then 
loaded  to  register  6,  and  proceeds  to  shifter  1  where  it 
controls  how  the  contents  of  register  7  are  shifted  before 
they  proceed  to  register  9.  This  accomplishes  modulo-2 
multiplication . 

5.  The  result  from  a  preceding  range  bin  enters  at 
register  11  and  is  added  to  the  contents  of  register  9  in 
adder  2  before  proceeding  to  register  13. 

6.  The  contents  of  register  13  are  now  available  as 
output  Q  if  this  is  the  last  range  bin  in  the  series  or  are 
sent  to  register  11  of  a  following  range  bin. 

The  control  logic  block  receives  signals  URB  (use 
range  bin) ,  PSVin  (phase  sample  valid  input) ,  and  ODVin 
(output  data  valid  input) .  These  signals  are  used  to  cre¬ 
ate  the  CLR13  (clear  13-bit  register) ,  CLR17  (clear  17-bit 
register) ,  PSVout  (phase  sample  valid  output) ,  and  ODVout 
(output  data  valid  output) . 

The  internal  design  of  the  control  logic  is  shown  in 
Figure  3.  The  CLR13  and  CLR17  signals  clear  the  register 
contents  at  the  appropriate  time  in  the  pipelines  when  they 
do  not  contain  valid  data.  This  occurs  during  pipeline 
startup  and  shutdown.  The  PSVout  signal  shows  the  DRFM 

signal  is  valid.  The  ODVout  signal  shows  that  outputs  Q 
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and  I  contain  valid  data.  The  URB  signal  allows  the  opera¬ 
tor  to  disable  a  range  bin.  Figure  4  shows  the  signal  flow 
when  four  range  bins  are  connected  together. 


PSVout 


Figure  3.  Internal  Design  of  the  Control  Logic 

D.  FALSE-TARGET  RADAR- IMAGING  PROGRAM  DESIGN 

A  C  language  program  simulating  the  chip,  originally 
written  by  Professor  Douglas  Fouts,  was  used  as  a  standard 
for  comparing  the  accuracy  of  results  throughout  the  re¬ 
search.  It  performs  the  same  arithmetic  calculations  as  the 
chip  but  uses  nested-loop  iterative  structures  instead  of 
pipelines.  While  the  chip  requires  a  separate  pipeline  for 
each  range  bin,  the  program  simply  adds  additional  length 
to  the  appropriate  arrays,  trading  off  memory  utilization 
for  computational  logic.  Table  1  shows  how  the  results  of 
each  of  four  range  bins  with  an  input  of  N  samples  are 
placed  into  the  two  dimensional  array  created  by  the  pro¬ 
gram.  Each  row  of  the  table  is  then  summed  up  to  produce 
the  false  target  radar  signal  results. 
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Figure  4 .  Signal  Flow  for  Four  Cascaded  Range 
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Table  1.  False-Target  Radar-Imaging  Program  Ex¬ 

ample  Using  Four  Range  Bins 
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The  program  was  used  as  both  a  trusted  source  for  re¬ 
sults  to  test  the  research  against  as  well  as  used  in  the 
timing  comparisons  in  Chapter  VI. 

E.  BENEFIT  AND  COST  OF  PIPELINING  ALGORITHMS 

The  implementation  of  the  false-radar  imaging  algo¬ 
rithm  has  each  range  bin' s  function  split  over  5  pipeline 
stages.  The  output  of  each  range  bin  is  then  chained  into 
the  next  in  the  final  pipeline  stage.  This  section  will 
discuss  the  benefits  and  costs  of  pipelining. 

1 .  Background 

Pipelining  allows  work  that  involves  repetition  to  be 
performed  in  parallel,  reducing  the  total  completion  time. 
It  is  most  effective  when  the  work  can  be  separated  into 
tasks  of  equal  length.  However,  in  reality,  work  seldom 
splits  into  subtasks  of  equal  length.  Since  the  completion 
time  for  each  stage  varies  with  the  task  it  performs,  some 
delay  is  required  at  the  end  of  each  stage,  so  that  slower 
stages  have  time  to  complete  their  task  before  receiving 
new  work.  Each  of  these  tasks  then  becomes  a  pipeline 
stage  where  a  portion  of  the  total  job  is  performed  for 
each  item  passing  through  the  pipeline.  Each  stage  re¬ 
ceives  a  result  from  the  previous  stage,  performs  its  task, 
and  then  passes  the  new  result  to  the  next  stage. 

For  pipelining  on  a  chip  that  involves  arithmetic 
functions  performed  by  a  computer,  each  pipeline  stage  con¬ 
sists  of  the  logic  to  perform  the  subtask  and  a  register 
which  stores  the  result  until  the  next  stage  is  ready  for 
it.  A  clock  performs  coordination  of  the  entire  pipeline 
by  allowing  the  registers  to  all  fill  at  the  same  time. 

The  clock  can  only  run  as  fast  as  the  slowest  pipeline 
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stage.  The  speed  of  each  stage  includes  the  time  to  com¬ 
plete  the  function  as  well  as  the  delay  time  caused  by  the 
register  itself. 

2 .  Pipeline  Benefits 

Pipelines  have  two  major  benefits.  First,  as  previ¬ 
ously  discussed,  they  allow  multiple  repetitive  tasks  to  be 
performed  in  parallel  which  reduces  the  total  completion 
time.  Second,  pipelines  can  allow  computer  logic  to  run  at 
a  higher  clock  speed  since  they  need  not  require  more  com¬ 
plex  logic  functions  that  require  more  time  to  complete. 
When  the  total  time  required  is  longer  than  the  desired 
clock  speed,  the  function  can  be  broken  into  smaller  pieces 
and  placed  in  a  pipeline. 

3.  Pipeline  Costs 

Since  functions  can  rarely  be  broken  into  equal  sub¬ 
tasks  and  pipeline  registers  introduce  some  delay,  the  to¬ 
tal  time  to  complete  a  function  on  a  single  data  item  by  a 
pipeline  will  always  be  longer  than  the  time  to  do  it  on 
that  data  item  without  a  pipeline.  However,  when  the  func¬ 
tion  must  be  repeated  the  pipeline  can  become  efficient. 

The  point  where  the  pipeline  becomes  efficient  can  begin  no 
sooner  than  when  the  number  of  repetitions  exceeds  the  num¬ 
ber  of  stages.  Also,  if  the  function  is  not  split  up  into 
fairly  equal  subtasks  and/or  the  register  delay  is  high, 
the  onset  of  pipeline  efficiency  can  be  delayed  even  fur¬ 
ther.  Pipeline  speedup  of  a  k-stage  pipelined  function 
over  an  equivalent  non-pipelined  function  is  defined  as 
[3]  : 

„  T,  nk 

0,  =  — = - ,  where  n  is  the  number  of  repetitions. 

T,  k  +  {n-\) 
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The  implementation  of  the  false-radar  imaging- 
algorithm  has  each  range  bin' s  function  split  over  five 


pipeline  stages.  The  output  of  each  range  bin  is  then 
chained  into  the  next  in  the  final  pipeline  stage.  This 
creates  a  complete  pipeline  length  of  N+4,  where  N  is  the 


number  of  range  bins  implemented.  Figure  5  shows  the 


pipeline  speedup  for  the  number  of  range  bins  implemented 
in  this  research,  using  N  for  k  and  number  of  samples  for 

n . 


Speedup  for  Number  of  Range  Bins 


140.00 


120.00 


100.00 


a 


=  80.00 


0) 


a  60.00 

(O 

40.00 

20.00 

0.00 


Number  of  Samples 


128  Bins  I 


8  Bins 


16  Bins 


64  Bins 


4  Bins 


Figure  5 . 


Speedup  vs .  Number  of  Range  Bins . 


The  plots  shows  speedup  increases  as  the  number  of 
samples  is  increased.  For  n»k,  maximum  speedup  of  k  is 
achieved,  meaning  k  tasks  are  efficiently  performed  at  the 
same  time.  For  low  n,  the  pipeline  length  is  too  long  to 
be  efficient.  This  phenomenon  can  be  viewed  in  the  data 
presented  in  Chapter  VI . 
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F.  SUMMARY  OF  NEW  RESEARCH 

Previous  work  implemented  and  tested  four  range  bins. 
For  simplicity,  the  previous  design  passed  all  the  range 
bin  programming  data  with  each  new  radar  sample.  However, 
this  was  inefficient  since  the  programming  data  does  not 
change  over  a  given  set  of  radar  samples.  For  each  5-bit 
sample,  40  bits  of  repetitive  programming  data  was  reen¬ 
tered,  (10  per  range  bin) .  The  interface  to  the  MAP  con¬ 
sists  of  6  banks  of  64-bits,  of  which  at  least  one  must  be 
designated  for  output,  leaving  at  most  320  bits  for  input. 
With  the  expansion  to  16  range  bins,  half  of  the  input 
bandwidth  would  have  been  consumed  by  unnecessary,  repeti¬ 
tive  programming  data  and  further  expansion  beyond  16  bins 
would  be  impossible  within  the  provided  bandwidth.  The 
current  research  implements  4-,  8-,  16-,  64-  and  128-range 
bin  versions  using  a  new  design  which  allows  the  program¬ 
ming  data  to  be  sent  to  the  macro  only  once  for  each  set  of 
radar  samples. 
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III.SRC-6E  ARCHITECTURE  AND  SOFTWARE  ENVIRONMENT 


A.  INTRODUCTION 

This  chapter  provides  an  overview  of  the  hardware, 
software,  and  documentation,  of  the  SRC-6E  reconf igurable 
computing  system. 

B.  SRC-6E  HARDWARE  OVERVIEW 

The  SRC-6E  computer  consists  of  two  independent  Linux 
computers  (labeled  A  and  B)  and  a  MAP  board  (see  Figure  6) . 


Microprocessor 
Side  A 

X 


MAP 
Chassis 


Microprocessor 
Side  B 


Figure  6 


SRC-6E  System  Diagram  (After  Ref.  4 


MAP,  a  registered  trademark  of  SRC  Computers,  Inc.,  is  the 
name  of  the  custom  reconf igurable  hardware.  Each  independ¬ 
ent  Linux  computer  contains  a  motherboard  holding  dual  In¬ 
tel  P3  Xeon  1-GHz  processors,  1.5  gigabytes  of  memory,  and 
a  SNAP  interface  card.  The  SNAP  card  is  a  custom  interface 
card  which  plugs  into  a  motherboard  DIMM  memory  slot  and 
provides  connections  to  the  MAP  board  which  is  located  in 
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the  MAP  Chassis.  A  single  MAP  board  consists  of  two  inde¬ 
pendent  MAPs.  A  block  diagram  of  a  single  MAP  is  shown  in 
Figure  7.  A  MAP  consists  of  three  Xilinx  Virtex-I I-series 
XC2V6000  FPGAs  and  24  megabytes  of  memory  (labeled  OEM  in 
Figure  7 ) . 


4.) 


One  of  the  FPGAs  is  reserved  for  control  logic  while  the 
other  two,  available  for  user  programs,  are  user  logic. 

The  OEM  memory  is  split  into  six  equal  banks,  labeled  A 
through  F,  of  4  megabytes  each.  The  user  FPGAs  are  con¬ 
nected  to  a  fixed  100-MHz  clock  which  seems  overly  inflexi¬ 
ble.  According  to  Xilinx  product  specification  sheets,  the 
Virtex-I I-series  FPGAs  can  run  at  clock  speeds  as  low  as  1 
MHz  and  upwards  of  400  MHz  [5] .  Programmer  control  of  the 
clock  speed  on  the  SRC-6E  would  make  the  system  more  flex! 
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ble.  Each  MAP  also  has  a  chain  port  which  can  be  used  for 
direct  I/O  to  the  user  logic,  but  was  not  used  during  this 
research . 

C .  SOFTWARE  ENVIRONMENT 

1.  Operating  System 

The  operating  system  for  the  SRC-6E  is  Red  Hat  Linux, 
and  it  has  been  augmented  with  custom  drivers  and  libraries 
to  support  the  MAP  and  SNAP  hardware.  The  built-in  graphi¬ 
cal  text  editor  in  Linux  is  called  GEdit.  Programmers  ex¬ 
perienced  with  UNIX  can  use  the  standard  line-text  editors 
such  as  VI  if  they  choose.  Both  contain  the  minimal  func¬ 
tionality  required  of  a  text  editor  to  write  the  required 
files  for  the  SRC-6E. 

2 .  Programming  Environment 

The  programming  environment  for  the  SRC-6E  is  called 
Carte.  Carte  allows  a  user  to  write  code  in  a  high  level 
language,  either  C  or  Fortran,  that  directly  targets  the 
user  programmable  FPGAs  in  the  MAP.  In  addition,  users  can 
write  their  own  macros  using  the  hardware  definition  lan¬ 
guages  Verilog  and/or  VHDL .  At  compile  time,  all  user  code 
and  macros  are  linked  together  into  a  single  executable 
file.  Carte  compiles  for  the  Intel  microprocessors  as  well 
as  the  MAP,  and  for  both  Fortran  and  C.  Synplify  Pro  soft¬ 
ware  by  Synplicity,  Inc.  is  used  for  FPGA  place  and  rout¬ 
ing.  This  program  normally  runs  under  Windows  version  but 
is  executed  in  the  Linux  environment  using  a  Windows  emula¬ 
tor  called  Wine. 

Since  Carte  relies  on  the  built-in  Linux  editors,  the 
SRC-6E  programming  environment  does  not  have  any  of  the 
modern  features  a  programmer  expects  from  editors  available 
in  products  such  as  Microsoft's  Visual  C++  or  Borland's  J- 
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Builder.  Lack  of  syntax  and  semantic  error  checking  in  the 
programming  environment  is  a  serious  drawback  when  using 
this  system.  Some  error  messages  are  produced  at  compile 
time,  but  they  are  cryptic  at  best,  especially  for  someone 
not  familiar  with  the  Linux  environment.  There  are  several 
file  types  which  must  interact  during  the  compile  process, 
as  will  be  discussed  in  Chapter  V.  The  intricate  details 
of  these  files  can  be  quite  confusing  and  it  is  often  dif¬ 
ficult  to  identify  which  file  contains  the  problem  based  on 
the  error  messages  given  at  compile  time.  Rudimentary 
checking  of  these  files  within  a  custom  editor  would 
greatly  improve  the  entire  programming  process. 

D .  MAJOR  DOCUMENTATION 

Several  documents  come  with  the  SRC-6E  to  aid  in  its 
programming . 

1.  SRC-6E  C  Programming  Environment  Guide 

Driver  code  must  be  developed  to  create  the  interface 
to  the  user  logic.  This  document  describes  how  to  write 
this  code  using  the  C  language  [6] . 

2.  SRC-6E  Fortran  Programming  Environment  Guide 

Similar  to  the  C  Programming  Environment  Guide,  this 
document  describes  how  to  write  similar  code  using  the  Eor- 
tran  language  [7] . 

3.  SRC-6E  MAP  Hardware  Guide 

This  document  contains  hardware  implementation  specif¬ 
ics  of  the  MAP  which  are  well  below  the  level  required  for 
users  to  successfully  program  the  SRC-6E  [4]. 

4.  SRC-6E  MAP  Macro  Developers  Guide 

This  document  discusses  general  information  on  the  use 
of  the  Macro  Data  Sheet  Library,  including  naming  conven¬ 
tions,  interfaces,  fanout  and  combinatorial  delays  [8]. 
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5 .  Macro  Data  Sheet  Library 

The  library  contains  data  sheets  for  all  macros  devel¬ 
oped  by  SRC  for  the  SRC-6E.  A  list  of  all  currently  sup¬ 
ported  macros  is  available  in  a  technical  note.  Ref.  9. 

The  macros  can  be  used  like  regular  function  calls  in  the 
chosen  programming  environment  language  (C  or  Fortran) . 

The  macros  include  all  basic  math  and  logic  functions  cur¬ 
rently  supported  by  the  environment.  There  are  also  sev¬ 
eral  support  macros  which  include,  among  others,  various 
macros  for  combining  and  splitting  data  structures. 
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IV.  DEVELOPMENT  AND  TESTING  IN  VHDL  WITH  ALDEC 

ACTIVE-HDL  5.2 


A.  INTRODUCTION 

This  chapter  describes  our  development  of  the  false- 
target  radar-imaging  macros  in  VHDL  before  they  were  ported 
to  the  SRC-6E  environment.  The  final  code  used  to  imple¬ 
ment  4  range  bins  in  the  previous  research  was  a  starting 
point  and  is  hereafter  referred  to  as  the  "old  macro" .  De¬ 
velopment  of  the  macros  was  performed  in  a  Windows  XP  envi¬ 
ronment  using  Aldec  Active-HDL  5.2  software. 

B.  MODIFICATIONS  TO  PREVIOUS  MACRO 

The  old  macro  used  two  64-bit  inputs  and  a  single  64- 
bit  output.  Assuming  that  a  reduction  in  overhead  would 
improve  their  efficiency,  the  new  macros  were  developed  to 
use  only  a  single  64-bit  input  and  output.  Other  modifica¬ 
tions  included  addition  of  the  PRB  and  UNP  signals  and  in¬ 
ternal  connections  of  the  URB  signal  within  the  range  bins. 
4-,  8-,  16-,  64-  and  128-range  bin  versions  were  created. 
The  code  for  this  section  can  be  viewed  in  Appendix  A. 

1 .  Overhead  Reduction 

To  reduce  the  input  bandwidth,  it  was  necessary  to 
send  in  the  programming  data  only  once  for  each  set  of  ra¬ 
dar  samples.  This  was  accomplished  by  complete  redesign  of 
the  interface  with  implementation  of  the  PRB  and  UNP  sig¬ 
nals.  These  signals  were  present  in  the  original  chip  de¬ 
sign  but  were  not  implemented  in  the  old  macro. 

2 .  PRB  Signal 

The  PRB  signal,  which  stands  for  "Program  Range  Bin, " 
was  originally  intended  to  signal  a  specific  range  bin  to 
accept  new  programming.  As  implemented  in  this  interface, 
it  signals  the  start  of  a  programming  sequence  where  four 
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range  bins  are  programmed  per  clock  cycle  until  all  are 
programmed.  Thus  for  the  sixteen  bin  model  it  takes  4 
clock  cycles  to  program  all  range  bins.  The  PRB  is  delayed 
through  a  shift  register  which  is  appropriately  sized  for 
the  number  of  range  bins .  Each  group  of  four  range  bins 
beyond  the  first  requires  a  bit.  A  three-bit  shift  regis¬ 
ter  is  used  for  the  16  range-bin  macro,  one  bit  for  the  8 
range-bin  macro,  and  no  shift  register  is  necessary  for  the 
4  range-bin  macro.  All  range  bins  are  sent  programming 
data  at  the  same  time,  but  the  delayed  PRB  signal  causes 
only  the  appropriate  group  of  range  bins  to  load  the  data. 

3 .  UNP  Signal 

The  UNP  signal,  which  stands  for  "Use  New  Program¬ 
ming,  "  was  originally  intended  to  signal  each  range  bin  one 
at  a  time  to  begin  using  its  new  programming.  The  UNP  sig¬ 
nal  was  not  implemented  in  the  old  macro.  As  implemented 
in  the  new  macros,  it  signals  all  range  bins  to  simultane¬ 
ously  use  their  new  programming.  The  UNP  signal  is  nor¬ 
mally  low.  Taking  the  UNP  signal  high  for  one  clock  sig¬ 
nals  the  macro  to  use  the  new  programming  data  previously 
loaded  by  a  PRB  programming  sequence. 

4 .  URB  Signal 

The  old  macro  used  a  URB  signal  which  stands  for  "Use 
Range  Bin."  Intended  as  a  single  bit  for  each  range  bin  to 
signal  the  control  logic  as  to  whether  or  not  to  use  a  par¬ 
ticular  range  bin,  this  signal  is  programmed  during  the  PRB 
programming  sequence.  When  low,  the  output  of  a  range  bin 
is  not  included  in  the  overall  output.  The  old  macro  as¬ 
sumed  that  all  four  range  bins  would  be  used  and  had  this 
signal  tied  high.  The  new  macro  designs  have  the  URB  sig¬ 
nal  internally  connected  to  allow  its  full  intended  use. 
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5.  Experiments  with  Different  Niombers  of  Range  Bins 

The  code  for  four  range  bins  was  created  by  instancing 
the  original  single  range  bin  code  and  creating  a  new,  more 
efficient  interface.  The  signal  flow  of  four  range  bins  is 
shown  in  Figure  4.  The  code  was  verified  by  comparing  the 
output  to  the  C  program  run  on  the  same  data  set.  This 
model  was  created  to  draw  a  timing  comparison  between  the 
old  macro  and  the  new  design.  This  will  determine  if  the 
reduction  in  the  interface  has  any  affect  on  the  overall 
timing . 

A  system  with  eight  range  bins  was  created  by  instanc¬ 
ing  eight  of  the  single  range  bins  previously  tested.  This 
model  was  developed  as  an  intermediate  size  for  collection 
of  timing  data. 

A  system  with  sixteen  range  bins  was  created  by  in¬ 
stancing  sixteen  of  the  single  range  bins  with  an  appropri¬ 
ate  interface.  This  model  was  the  original  goal  of  the  new 
research.  Through  reduction  of  the  interface  overhead  by 
1/3  and  increase  of  the  number  of  pipelines  by  a  factor  of 
4,  it  was  hoped  that  the  SRC-6E  would  show  an  improvement 
in  timing  as  compared  to  the  other  benchmarks. 

A  system  with  64  range  bins  was  created  by  instancing 
64  of  the  single  range  bins  with  an  appropriate  interface. 
This  model  was  developed  because  of  the  unexpectedly  low 
chip  usage  by  the  previous  models  which  will  be  discussed 
in  the  next  chapter. 

A  system  with  128  range  bins  was  created  by  instancing 
128  of  the  single  range  bins  with  an  appropriate  interface. 
This  model  was  developed  after  the  256  range  bin  model 
would  not  fit  in  the  user  logic  area. 
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V.  PORTING  THE  VHDL  CODE  TO  THE  SRC-6E 


A.  INTRODUCTION 

This  chapter  discusses  the  porting  of  the  VHDL  code  to 
the  SRC-6E  and  the  required  support  files.  Also  discussed 
are  changes  that  were  required  to  the  original  code  to  make 
it  compatible  with  the  SRC-6E. 

B.  THE  SRC-6E  FILE  TYPES 

The  process  of  writing  code  to  target  the  user  logic 
requires  several  file  types.  To  import  a  user  macro  from 
either  VHDL  or  Verilog,  five  files  must  be  created:  .info, 
.box,  .me,  .c,  and  the  makefile.  Using  only  the  last 
three,  one  can  write  code  that  targets  the  user  logic  with¬ 
out  a  user-defined  macro.  Examples  of  these  file  types  can 
be  viewed  in  Appendix  B,  which  contains  the  final  versions 
of  all  the  files  used. 

1 .  . info 

This  file  type  is  required  whenever  a  user  macro  is 
used.  It  contains  the  following  information: 

•  Macro  name 

•  Macro  type  -  stateful,  external,  and  pipelined 

•  Latency  -  a  number  stating  how  many  clock  cycles 
before  valid  output  is  generated  by  the  macro. 

•  List  of  inputs  and  outputs 

2 .  . box 

This  is  also  required  only  for  a  user-defined  macro. 

It  is  a  Verilog  style  description  of  the  input  and  output 
variables  of  the  macro.  The  Verilog  description  is  neces¬ 
sary  for  both  VHDL  and  Verilog  macros. 

3 .  .me 

This  file  type  is  for  C  code  written  to  target  the 

user  logic.  All  code  in  this  file  will  be  implemented  in 
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hardware  along  with  the  user  macro.  Using  this  file  type, 
it  is  possible  to  write  code  for  the  hardware  using  only 
the  high-level  language  C  without  using  any  user-defined 
macros . 

4 .  .  c 

This  file  type  is  for  regular  C  code  which  provides 
the  interface  between  the  operating  system  and  the  hardware 
code  defined  in  the  .me  file.  Code  implemented  in  this 
file  is  executed  on  the  Xeon  processors. 

5 .  makefile 

This  file  is  used  by  the  command  "make"  when  all  the 
files  are  compiled  and  linked.  It  contains  all  of  the  file 
names  and  paths  used,  as  well  as  the  desired  final  executa¬ 
ble  name.  Compiler  flags  and  options  can  also  be  stated  in 
this  file. 

6 .  . vhd 

This  file  type  is  for  VHDL  macro  files.  In  general, 
it  is  safest  to  merge  multiple  files  into  one.  However,  it 
is  possible  to  build  a  program  with  separate  files  as  long 
as  they  are  listed  in  the  proper  order  in  the  makefile. 

The  compiler  appears  to  be  single-pass  so  the  files  must  be 
in  the  order  they  are  used,  with  the  lowest-order  file 
listed  first. 

7 .  Other  Types 

Two  other  file  types  can  be  used  by  users  programming 
the  user  logic:  .f,  which  is  a  Fortran  file,  and  .v,  which 

is  a  Verilog  file.  These  file  types  were  not  used  during 
this  research. 

C .  CODE  DEVELOPMENT 

Porting  of  the  macro  code  began  with  creation  of  the 
required  support  files  previously  mentioned.  Modifying  the 
support  files  from  the  old  macro  was  fairly  simple.  Only 
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the  .c  interface  file  required  a  significant  rewrite  to 
match  up  with  the  new  macro  interface.  The  code  went 
through  three  major  versions  and  several  revisions. 

1 .  Version  1 . 0 

The  sixteen-range-bin  VHDL  code  was  imported  to  the 
SRC-6E.  The  required  support  files  were  generated  by  modi¬ 
fying  the  old  macro  files  to  support  the  new  design;  this 
proved  trivial  compared  to  the  long  trial-and-error  process 
reported  in  the  previous  research.  However,  during  the 
make  process,  the  SRC-6E  reported  a  final  clock  speed  of 
78.5  MHz,  well  below  the  required  minimum  of  100  MHz. 
Without  surprise  due  to  the  timing  failure  the  generated 
executable  did  not  produce  the  proper  output.  This  version 
implemented  the  programming  sequence  using  a  finite-state 
machine  with  four  states  using  only  the  UNP  signal  to  reset 
the  state  to  zero.  While  this  version  created  the  proper 
output  with  the  Aldec  software,  it  generated  too  much  delay 
when  implemented  in  hardware  on  the  SRC-6E. 

2 .  Version  1 . 1 

An  eight-range-bin  version  was  created  to  reduce  the 
macro  complexity  for  troubleshooting.  After  verification 
in  Aldec  of  the  proper  output  it  was  compiled  on  the  SRC- 
6E .  This  version  reported  a  final  clock  speed  of  84.6  MHz 
and  also  generated  incorrect  output. 

3 .  Version  1 . 2 

A  four-range-bin  version  was  created  to  further  reduce 
the  macro  complexity  for  troubleshooting.  After  verifica¬ 
tion  in  Aldec  of  the  proper  output  it  was  compiled  on  the 
SRC-6E.  This  version  reported  a  final  clock  speed  of  85.1 
MHz  and  also  generated  faulty  output.  Since  the  old  macro 
had  generated  proper  four-range-bins  output  on  the  SRC-6E 
it  was  determined  that  the  finite  state  machine  method 
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would  not  work  on  the  SRC-6E,  presumably  due  to  the  style 
of  programming  it  and  not  failure  of  the  SRC-6E.  After 
discussion  with  SRC  technical  support,  the  need  for  a  sim¬ 
pler  more  direct  way  of  implementing  the  interface  became 
apparent . 

4 .  Version  2 . 0 

Review  of  the  actual  functionality  required  by  the 
state  machine  showed  that  the  same  tasks  could  be  performed 
with  simpler  components.  Since  the  states  only  changed  in 
numerical  order,  one  per  clock,  the  same  function  could  be 
performed  with  a  counter.  Since  this  would  require  a  sig¬ 
nificant  redesign,  a  review  of  the  original  chip  design  was 
conducted  to  see  if  the  macro  implementation  could  be 
brought  closer  to  the  original  design.  During  the  review 
it  was  discovered  that  if  the  original  PRB  and  UNP  signals 
were  implemented  properly,  a  simple  shift  register  could 
perform  all  of  the  necessary  functions  to  direct  the  pro¬ 
gramming  input  as  required.  The  new  design  was  implemented 
and  verified  in  Aldec  to  produce  the  proper  output.  After 
porting  the  new  macro  to  the  SRC-6E  and  modifying  the  .c 
file  to  support  the  new  interface,  the  SRC-6E  produced  the 
proper  sixteen-range-bin  output  for  the  first  time.  Eol- 
lowing  the  same  basic  design,  new  8-  and  4-range  bin  macros 
were  rapidly  created  and  verified. 

5 .  Version  3 . 0 

After  unexpectedly  low  FPGA  usage  for  the  8-  and  16- 
bin  macros,  only  12%  and  16%,  a  64-bin  macro  was  imple¬ 
mented.  The  new  version  demonstrated  an  EPGA  usage  of  38%; 
a  128-bin  version  demonstrated  a  usage  of  68%.  A  256-bin 
version  was  attempted  but  it  would  not  fit  within  the  user 
logic . 
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D.  SYNTHESIZABLITY 

As  noted  in  the  original  research,  synthesizability 
was  a  problem  during  the  design  process.  Synthesizability 
is  a  style  of  hardware  description  language  programming 
which  allows  the  available  layout  tools  to  properly  convert 
the  code  for  hardware  implementation  on  an  FPGA.  During 
the  design  of  the  code,  the  Aldec  software  was  only  used  to 
simulate  the  VHDL  code.  Therefore,  it  only  tested  the  code 
for  functionality  and  did  not  consider  if  the  code  could 
actually  be  implemented  in  hardware.  Problems  with  the 
state  machine  design  resulted  in  synthesizability  problems 
which  were  resolved  with  a  redesign  of  the  interface.  The 
root  cause  of  this  was  inexperience  with  both  the  VHDL  lan¬ 
guage  and  the  concept  of  synthesizability. 

E.  FPGA  UTILIZATION 

As  previously  noted,  FPGA  utilization  was  much  lower 
than  expected.  Based  on  the  4-bin's  10%  usage,  slightly 
over  20%  and  40%  were  expected  for  the  8  and  16  bin  models, 
based  on  linear  scaling  of  the  number  of  additional  pipe¬ 
lines  implemented  by  the  two  larger  models.  The  observed 
12%  and  16%  usages  show  that  the  Xilinx  software  is  per¬ 
forming  some  unexpected  and  very  effective  optimization  of 
the  VHDL  code  which  causes  the  actual  usage  to  be  much 
lower  than  the  original  estimations.  The  64-  and  128-bin 
versions  showed  usage  of  38%  and  68%.  A  256-bin  version 
was  attempted  but  after  three  days  of  compiling  failed  with 
a  usage  of  99%  with  a  little  over  500  signals  left  to 
route.  Thus  256-bins  almost  fit  within  the  user  logic 
area.  However,  it  should  be  noted  that  this  version  had 
multiple  timing  failures  resulting  in  a  clock  speed  of  only 
32.8  MHz  which  would  not  have  produced  correct  results. 

Figure  8  is  a  plot  of  actual  FGPA  usage  vs.  the  number  of 
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bins.  Two  best  fit  plots,  one  exponential  and  one  second 
order  polynomial  are  added  to  predict  the  FPGA  usage  for 


macros  with  other  numbers  of  bins.  The  polynomial  curve 
seems  to  most  closely  match  the  actual  data. 
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VI .  PERFORMANCE  RESULTS 


A.  INTRODUCTION 

This  chapter  discusses  the  benchmarks,  methods  used 
for  collection  of  data,  and  data  analysis. 

B.  BENCHMARK  TEST  PLATFORMS 

1.  C  Program  Executed  on  a  Windows -based  Machine 

A  C  program  was  compiled  and  executed  on  an  off-the- 
shelf  3-GHz  Pentium  4  processor  system  with  2  gigabytes  of 
RAM  running  the  Windows  XP  Professional  operating  system. 
The  primary  reason  for  this  benchmark  was  to  draw  a  com¬ 
parison  for  cost  effectiveness  between  the  high-cost  spe¬ 
cial-purpose  SRC-6E  system  and  a  modern  off-the-shelf  gen¬ 
eral-purpose  computer.  The  same  computer  that  was  used  for 
the  previous  research  was  used  to  collect  the  new  data. 

2.  C  Program  Executed  on  the  SRC-6E 

The  same  C  program  was  also  compiled  and  run  directly 
on  the  SRC-6E  without  using  any  of  the  custom  hardware. 

The  data  collected  was  based  on  the  Linux  operating  system 
running  on  a  1-GHz  Xeon  3  processor  with  1.5  gigabytes  of 
RAM.  Although  the  system  contains  dual  processors,  only 
one  thread  was  created  while  running  the  code  and  therefore 
it  is  believed  that  only  one  processor  was  used  during  the 
test.  The  primary  reason  for  this  benchmark  was  to  test  if 
the  algorithm  itself  is  suitable  for  implementation  on  the 
user  logic. 

3.  VHDL  Code  on  the  SRC-6E  MAP 

The  VHDL  user  macro  and  support  files  (shown  in  Appen¬ 
dix  B)  were  also  implemented  and  executed  on  the  SRC-6E 
MAP.  Two  timing  data  results  were  collected  from  each  of 
the  runs,  the  total  run  time  for  the  entire  execution  and 
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the  time  of  execution  on  the  MAP  only.  The  two  timing  data 
results  compare  overhead  time  to  actual  execution  on  the 
MAP. 

C.  TIMING  DATA  COLLECTION  METHOD 

The  data  collection  method  used  in  this  research  was 
identical  to  the  previous  work  to  allow  for  direct  compari¬ 
son  of  the  results.  The  input  data  sets  were  composed  to 
represent  a  stream  of  intercepted  radar  samples.  Each  data 
item  consists  of  two  hexadecimal  characters  representing  a 
five-bit  intercepted  radar  sample.  The  32-sample-size  data 
set  is  shown  in  Appendix  B,  which  represents  the  decimal 
numbers  0  to  31  in  order.  All  other-sized  sample  sets  were 
created  by  duplicating  and  repeating  the  same  32  samples  in 
order.  By  doubling  each  previous  sample  set  size  the  fol¬ 
lowing  set  sizes  were  created:  32,  64,  128,  256,  512, 

1,024,  2,048,  4,096,  8,192,  16,284,  32,786,  65,536, 

131,072,  and  262,144.  The  final  set  size  of  500,000  was 
chosen  as  a  convenient,  large  value  that  was  close  to  the 
upper  array  size  restriction  allowed  by  the  four  megabytes 
of  memory  per  bank  on  the  SRC-6E. 

Data  from  all  test  platforms  were  collected  in  order 
of  increasing  input  set  size.  The  timing  data  was  col¬ 
lected  by  running  five  consecutive  runs  of  each  input  data 
set  on  each  of  the  three  benchmark  platforms.  The  data  for 
the  Windows  XP  system  were  collected  after  a  fresh  reboot 
with  all  unnecessary  programs  closed.  As  noted  in  the  pre¬ 
vious  research,  observation  of  the  system  usage  during  exe¬ 
cution  of  the  code  again  showed  that  the  processor  and  mem¬ 
ory  were  not  fully  used,  never  exceeding  54%  usage  during 
the  16-range-bin  tests.  The  reasons  why  the  processor  did 
not  appear  to  be  fully  used  and  the  methods  Windows  uses  to 
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measure  performance  are  unknown.  The  SRC-6E  system  data 
were  collected  by  running  the  executables  on  side  A  when  no 
other  users  were  using  the  system. 

D.  TIMING  DATA  ANALYSIS 

1 .  Methods 

The  timing  data  are  displayed  in  two  types  of  graphs 
for  each  range  bin  size.  The  first  is  the  average  total 
time  each  test  platform  takes  for  each  data  set.  The  aver¬ 
age  is  taken  of  the  five  data  points  for  each  input  set 
size.  The  second  is  the  average  time  per  sample  for  each 
input  set.  First,  the  average  is  taken  over  the  five  data 
points  and  then  it  is  divided  by  the  input  set  size.  All 
graphs  are  connected  with  straight  line  approximations  be¬ 
tween  data  points. 

2 .  New  Interface  Timing  Results 

Figure  9  shows  the  SRC  MAP  call  average  total  time  vs. 
i  nput  set  size  for  each  of  the  implemented  range  bin  sizes. 


SRC  MAP  Call  Average  Time 


-♦ — Old  4  Bins  — B— 4  Bins  —A—  8  Bins  16  Bins  — 64  Bins  —9 — 128  Bins  [ 


Figure  9.  Comparison  of  MAP  Call  Average  Time 
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The  Old  4  Bins  plot  shows  that  the  new  macro  interface  is 
more  efficient  for  large  input  set  sizes.  The  4  Bins  plot 
shows  a  spike  at  1024  samples,  caused  by  a  single  unusually 
large  time  result  in  the  data.  The  reason  for  this  one 
slow  result  is  unknown. 

3 .  4  Range  Bin  Timing  Results 

These  results  are  very  similar  to  those  found  in  the 
previous  research.  Figure  10  shows  the  average  total  time 
for  4  range  bins . 


All  four  curves  are  fairly  constant  up  to  the  16,284  sample 
size.  This  result  shows  that,  for  small  data  set  sizes, 
the  overhead  times  inherent  in  the  systems  are  much  greater 
than  the  calculation  times.  We  consider  overhead  to  be  all 
the  data  file  read/write  operations  and  memory  accesses  re- 
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quired  to  prepare  the  data  for  calculations.  The  SRC  Macro 
MAP  Call  curve  clearly  shows  the  calculation  time  is  insig¬ 
nificant  compared  to  the  total  processing  time. 

The  SRC  Macro  MAP  Call  curve  also  shows  the  MAP  execu¬ 
tion  time  is  extremely  fast,  even  for  very  large  data  set 
sizes.  However,  the  SRC  Macro  Total  curve  shows  the  total 
execution  time  for  the  VHDL  macro  takes  considerably 
longer.  The  extra  time  represents  delays  in  the  system  to 
prepare  and  transfer  the  data  in  and  out  of  the  MAP  which 
cause  the  SRC  execution  time  to  be  longer  for  all  input  set 
sizes,  initially  by  an  order  of  magnitude. 

As  the  input  set  size  is  increased,  we  see  the  curves 
begin  to  converge.  Figure  11  shows  a  comparison  of  the  av¬ 
erage  time  per  sample.  Figure  12  shows  the  same  data  on  a 
semi-log  scale. 
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The  overhead  in  the  SRC  Macro  clearly  dominates  the  graphs 
for  smaller  sample  set  sizes.  However,  for  larger  sample 
set  sizes,  the  overhead  time  is  amortized  over  the  total 
time  to  be  nearly  insignificant.  The  SRC  Macro  Total  time 
is  approaching  the  other  curves  and  presumably  would  even¬ 
tually  meet  them  if  the  sample  set  size  could  be  further 
increased.  However,  this  is  not  possible  with  the  current 
macro  design  due  to  the  memory  design  of  the  SRC-6E  hard¬ 
ware  . 


Average  Time  per  Sample  (4  Bins  Log  Scale) 


I — ♦ — SRC  Macro  MAP  Call  — B— SRC  Macro  Total  —A— Windows  XP  C  Program _ SRC  C  Program 

Figure  12.  Average  Time  per  Sample  (4  Bins  Semi- 

Log) 

4 .  Timing  Results  for  Larger  Numbers  of  Range  Bins 

The  results  for  8  and  16  range  bins  are  similar  to  4 
range  bins.  Figure  13  shows  the  average  total  time  for  8 
range  bins.  Figure  14  shows  the  average  total  time  for  16 
bins.  The  macros  still  lack  enough  parallelism  to  be  ef¬ 
fectively  implemented  on  the  SRC.  However,  it  can  be  ob- 
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served  that  the  SRC  macro  time  is  remaining  the  same  as  it 
was  for  4  range  bins,  while  the  C  program  implemented  on 
the  Windows  XP  and  SRC  are  becoming  slower. 


Figure  14.  Average  Total  Time (16  Bins) 
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Figure  15  shows  the  average  total  time  for  64  bins. 

For  the  first  time,  the  SRC  macro  beats  the  SRC  C  program 
for  all  sample  sizes,  demonstrating  that  the  macro  imple¬ 
mentation  is  more  efficient  than  the  Xeon  processor  running 
at  1  GHz.  At  500,000  inputs,  the  SRC  macro  also  meets  the 
Windows  XP  C  program  running  at  3  GHz.  Therefore,  64  range 
bins  marks  the  lower  bound  for  range  bin  implementation 
that  can  be  run  efficiently  on  the  SRC-6E. 


Average  Total  Time  (64  Bins) 


Number  of  Samples 


— ♦ — SRC  Macro  MAP  Call 

— ■ — SRC  Macro  Total 

A  Windows  XP  C  Program 

SRC  C  Program 

Figure  15.  Average  Total  Time (64  Bins) 

Figure  16  shows  the  average  total  time  for  128  bins. 
The  SRC  macro  beats  the  SRC  C  program  again  for  all  input 
sizes  and  by  as  much  as  an  order  of  magnitude  for  large  in¬ 
put  sizes. 
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Average  Total  Time  (128  Bins) 


«}■ 

Number  of  Samples 


— ♦ — SRC  Macro  MAP  Call 

— ■ — SRC  Macro  Total 

A  Windows  XP  C  Program 

SRC  C  Program 

Figure  16.  Average  Total  Time (128  Bins) 

5 .  Contributors  to  Total  Macro  Execution  Time 

Further  analysis  of  the  macro  timing  results  show 
three  major  contributors  to  the  total  execution  time:  I/O 
overhead,  MAP  overhead,  and  the  MAP  call.  Figure  17  shows 
the  percentage  of  total  execution  time  of  the  three  con¬ 
tributors  for  the  4  range  bin  model.  The  graphs  for  the 
larger  range  bin  models  are  very  similar  showing  only  that 
the  relative  contributions  of  the  three  factors  are  inde¬ 
pendent  of  the  number  of  range  bins  implemented.  We  will 
analyze  each  of  the  three  contributors  independently  to  de¬ 
termine  a  final  equation  of  the  form  T  =  I ! Oq^j  +  MAP^^  +  . 

a .  J/0  Overhead 

We  define  I/O  overhead  to  include  all  read  and 
wr  i  t  6  access  to  the  data  files  as  well  as  the  preparation  of 
th6  input  data  for  the  macro  and  the  output  data  for  presenta¬ 
tion.  Figure  18  shows  I/O  overhead  is  erratic  for  low  num- 
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bers  of  inputs  and  independent  of  the  number  of  range  bins 
implemented  for  large  input  size. 


Average  Percentage  of  Total  Time  (4  Bins) 


100%  -| 
90%  - 
80%  - 
70%  - 
^  60%  - 

1  50%  - 

2  40%  - 
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20%  - 
10%  - 
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Number  of  Samples 


— I/O  Overhead  — ■ — MAP  Overhead  a  MAP  Call 


Figure  17.  Average  Percentage  of  Total  Time (4 

Bins ) 


I/O  Overhead  Percentage  of  Total  Time  (Semi-Log) 


4  Bins  M  8  Bins  A  16  Bins  64  Bins  X  128  Bins 


Figure  18.  I/O  Overhead  Percentage  of  Total  Time 

(Semi-Log) 
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since  overhead  time  is  independent  of  the  number 
of  range  bins.  Figure  19  shows  a  plot  of  all  I/O  times  for 
the  5  range  bin  models  averaged  together.  A  best-fit  lin¬ 
ear  curve  is  included,  which  has  a  corresponding  equation 
of  y  =  5.11x\0-^x-2Alx\0-\  The  zero  crossing  represents  an 
insignificant  2  msec  so  will  be  ignored  for  simplicity. 

Using  more  appropriate  variable  names  the  final  equation 
becomes  =  5.77x  ,  where  S  is  the  number  of  input  sam- 


Figure  19.  I/O  Overhead  Average  Time 


b.  MAP  Overhead 

We  define  MAP  overhead  to  be  the  sum  of  MAP  allo¬ 
cation  and  deallocation  times.  Figure  20  shows  that  MAP 
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overhead  is  independent  of  the  number  of  input  samples  and 
the  number  of  range  bins  implemented.  MAP  allocation  time 
appears  random  within  the  range  of  0.481  -  0.700  seconds. 
MAP  deallocation  time  appears  random  within  the  range  of 
1.001  -  1.139  seconds.  Relative  to  the  other  total  time 
contributors,  the  range  of  the  variation  is  quite  small  so 
an  average  value  will  be  used  as  a  constant  in  the  final 
equation.  Averages  of  all  result  sets  yield  0.511  and 
1.019  seconds,  for  allocation  and  deallocation  respec¬ 
tively,  yielding  an  average  total  of  1.53  seconds  for  the 
MAP  overhead  constant.  Thus  MAPq^=\.53. 


MAP  Overhead  Average  Time 


-♦—4  Bins  — 8  Bins  A  16  Bins  64  Bins  X  128  Bins 


Figure  20.  MAP  Overhead  Average  Time 


c.  MAP  Call 

The  MAP  call  time  consists  of  the  function  call 
to  the  macro  which  is  executed  on  the  MAP.  This  includes 
the  macro  computation  time  as  well  as  the  input  and  output 
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data  memory  transfers  to  and  from  the  OBM  to  the  system 
memory.  Figure  9  previously  showed  that  the  MAP  call  has  a 
very  small  dependence,  below  10  msec,  on  the  number  of  im¬ 
plemented  range  bins  which  is  insignificant  when  compared 
to  the  total  execution  time.  Figure  9  also  shows  a  small 
dependence,  about  35  msec,  on  the  number  of  input  samples, 
which  is  also  insignificant.  The  MAP  call  has  a  minimum 
execution  time  of  95  msec.  For  the  final  equation,  we  will 
use  the  average  of  all  MAP  call  data  resulting  in  a  final 
constant  of  0.102  seconds.  Thus  =  0.102  . 

d.  The  Final  Equation 

Combining  the  three  factors  together  yields  the 
following  equation  where  S  is  the  number  input  samples: 

T  =  IIOo^  +MAPo^  +MAPc^„  =  5.77 x  10^*’^  + 1 .53  +  0. 102  =  5.77 x lO^^^S  + 1 .632  . 
Figure  17  shows  that  I/O  overhead  is  insignificant  below 
approximately  2000  input  samples.  In  this  range  MAP^^ 
dominates  the  result  yielding  a  constant  value  of  approxi¬ 
mately  1.6  seconds. 

6 .  Conclusions 

The  design  of  the  VHDL  macro  running  on  the  SRC-6E 
suffers  from  excessive  overhead  which  makes  it  less  effi¬ 
cient  than  the  C  program  which  performs  the  same  calcula¬ 
tions  for  implementations  below  64  range  bins.  Above  64 
range  bins  the  macro  is  very  efficient,  even  beating  a  Win¬ 
dows  XP  computer  running  at  a  clock  speed  30  times  higher 
under  certain  conditions.  Total  macro  execution  time  in 

seconds  can  be  estimated  as  7"  =  5. 77x10^'’ S' +  1.632  where  S  is  the 
number  of  input  samples. 
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VII .  CONCLUSIONS 


A.  DIFFICULTY  OF  USE 

Programming  the  SRC-6E  to  use  user-defined  macros  re¬ 
quires  knowledge  of  high-level  programming  languages,  hard¬ 
ware  description  languages,  hardware  component  design,  and 
synthesizability .  Relatively  few  people  possess  all  of 
these  skills  to  use  the  system  effectively  without  first 
receiving  significant  training.  However,  programming  the 
system  using  only  high-level  languages  of  C  or  Fortran  is 
possible  which  widens  the  potential  user  base  to  many  more 
people.  More  research  needs  to  be  performed  to  determine 
which  is  most  feasible  for  organizations  using  the  machine. 

The  SRC-6E  has  a  relatively  steep  learning  curve. 

There  are  few  examples  in  the  documentation  and  little  work 
using  the  system.  The  errors  generated  by  the  system  dur¬ 
ing  development  are  not  intuitive  and  cannot  be  solved 
without  previous  experience.  The  SRC  support  staff  are 
very  helpful  in  solving  specific  code  problems  but  are  not 
forthcoming  in  the  reasons  or  methods  used  to  resolve  them. 
There  are  no  development  tools  in  place  to  assist  novice 
users  in  programming  the  system. 

The  development  time  to  implement  solutions  on  this 
system  appears  to  be  high,  primarily  due  to  the  steep 
learning  curve  and  lack  of  development  tools.  This  re¬ 
search  represents  approximately  six  months  of  part-time 
work  by  a  single  moderately  experienced  person.  More  re¬ 
search  must  be  performed  to  further  quantify  the  develop¬ 
ment  time  and  see  how  it  improves  once  a  group  of  experi¬ 
enced  repeat  users  is  grown.  No  research  has  yet  been  per- 
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formed  with  large  projects  employing  multiple  programmers 
to  see  if  the  total  project  time  can  be  reduced. 

B.  APPROPRIATENESS  OF  THIS  ALGORITHM  FOR  TESTING 

The  implementation  of  the  design  with  64  or  less  range 
bins  has  been  shown  to  lack  the  necessary  parallelism  to 
fully  use  the  hardware  and  make  it  effective.  Without  in¬ 
creases  in  the  memory  size  allocated  for  the  user  logic, 
implementation  below  64  range  bins  on  the  SRC-6E  is  not  ef¬ 
fective  in  terms  of  development  time,  processing  time,  or 
cost-effectiveness . 

C.  APPROPRIATENESS  OF  THE  SRC-6E  FOR  IMPLEMENTATION 

The  SRC-6E  user  logic  is  tied  to  a  fixed  lOOMHz  clock 
which  would  limit  the  range  resolution  if  it  were  used  to 
implement  an  actual  false  target  radar  imaging  system. 

Range  resolution  is  defined  as  [10] : 


R. 


c 

2// 


where  C  is  the  speed  of  light,  and  is  the 


clock  speed.  With  a  clock  speed  of  100  MHz  range  resolu¬ 
tion  is  1.5  meters.  Ref  [10]  reports  a  system  would  re¬ 
quire  at  least  a  500  MHz  clock  speed  which  results  in  a 
resolution  of  0.3  meters  necessary  to  fool  modern  radars. 
Maximum  target  size  is  defined  as  [10] : 


M^z-Rr^R^rb'  where  is  the  number  of  range  bins. 


Using  128  range  bins  results  in  a  maximum  target  size 
of  192  meters.  With  an  expected  200  range  bins  possible, 
300  meters  is  achievable.  With  the  use  of  two  user  logic 
areas,  over  400  range  bins  should  be  achievable,  resulting 
in  600  meters.  Euture  versions  of  reconf igureable  com¬ 
puters  using  more  modern  FPGA' s  with  both  larger  sizes  and 
faster  clock  speeds  could  make  a  workable  false  target  ra¬ 
dar  imaging  system  achievable  with  this  type  of  technology 
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D.  RECOMMENDATIONS  FOR  FUTURE  WORK 

The  current  interface  allows  scalability  to  any  number 
of  range  bins  in  units  of  4.  256  range  bins  have  been 

shown  to  be  too  large  to  fit  within  the  user  logic  while 
128  range  bins  fits  with  68%  usage.  Future  research  could 
use  more  than  one  user  logic  chip  to  implement  twice  as 
many  range  bins . 

As  discussed,  the  SRC-6E  lacks  a  custom  code  editing 
environment  with  modern  features  such  as  real-time  syntax 
checking.  Automated  generation  of  some  of  the  support 
files  could  also  be  implemented.  Tools  could  be  created 
that  ask  a  few  questions  and  then  create  the  skeletons  of 
the  support  files  for  the  project.  Changes  to  one  file 
that  affect  another  could  be  automatically  corrected  or  at 
a  minimum  generate  warnings . 

The  knowledge  base  of  what  types  of  applications  do  or 
do  not  work  efficiently  on  this  system  is  very  small.  Many 
more  algorithms  need  to  be  tested  on  the  system.  Program¬ 
ming  the  same  algorithm  with  both  a  high-level  language  and 
user  macros  would  provide  information  on  which  produces 
better  results  for  different  types  of  algorithms.  Cost  and 
timing  comparison  to  modern  and  readily  available  computers 
should  continue  to  be  made. 
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APPENDIX  A 


This  appendix  contains  the  VHDL  code  that  was  both 
tested  with  Aldec  Active-HDL  and  ported  to  the  SRC-6E.  The 
full  code  is  shown  for  the  4  bin  version.  Only  the  changed 
portion  is  shown  for  the  other  version.  The  4  bin  model  is 
labeled  to  show  the  section  replaced  by  the  other  version' s 
code . 

A.  4  BIN  MACRO  VHDL 

--  Title  :  FourBin 


library  IEEE; 

use  IEEE. STD_L0GIC_1 164. all; 

entity  DFlipFlop  is 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit  := 
end  DFLipFlop; 

architecture  Equations  of  DFlipFlop  is 
begin 

process  (CLK,  LD,  RESET) 
begin 

if  CLK='l'  and  CLK 'EVENT  then 

if  RESET='l'  then 

Q  <=  'O'; 

elsif  LD= ' 1 '  then 

Q  <=  D; 

end  if; 

end  if; 

end  process; 

Qnot  <=  not  Q; 
end  Equations; 

entity  Registers  is 

port  (CLK, LD, RESET :  in  bit;  D5 :  in  bit  vector  (4  downto  0); 

Q5 :  inout  bit_vector  (4  downto  0); 

QSnot:  out  bit_vector  (4  downto  0)); 
end  Registers,' 

architecture  Registers  of  Registers  is 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 

end  component; 

begin 

DFFO:  DFlipFlop  port  map  (CLK,  LD,  RESET,  DS(0),  QS(0),  QSnot (0)); 
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DFFl :  DFlipFlop  port  map  (CLK 
DFF2 :  DFlipFlop  port  map  (CLK 
DFF3 :  DFlipFlop  port  map  (CLK 
DFF4 :  DFlipFlop  port  map  (CLK 
end  Registers," 


LD, 

RESET, 

D5  (1)  , 

Q5  (1)  , 

QSnot ( 1 

LD, 

RESET, 

D5  (2)  , 

Q5  (2)  , 

QSnot (2 

LD, 

RESET, 

D5  (3)  , 

Q5  (3) , 

QSnot ( 3 

LD, 

RESET, 

D5 (4)  , 

Q5  (4)  , 

QSnot ( 4 

entity  Registers  is 

port  (CLK,  LD,  RESET:  in  bit;  D8 :  in  bit_vector  (7  downto  0); 
Q8 :  inout  bit_vector  (7  downto  0); 

Q8not:  out  bit_vector  (7  downto  0)); 
end  Registers," 

architecture  Registers  of  Registers  is 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 
end  component; 


begin 


DFFO 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(0) 

! 

Q8  (0) 

r 

QSnot ( 0 ) 

r 

DFFl 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(1) 

t 

Q8  (1) 

r 

Q8not ( 1 ) 

r 

DFF2 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(2) 

t 

Q8  (2) 

r 

QSnot (2 ) 

r 

DFF3 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(3) 

t 

Q8  (3) 

t 

QSnot ( 3 ) 

r 

DFF4 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(4) 

t 

Q8  (4) 

t 

QSnot ( 4 ) 

r 

DFFS 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(S) 

t 

Q8  (S) 

r 

QSnot ( S ) 

r 

DFF6 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(6) 

t 

Q8  (6) 

r 

Q8not (6) 

r 

DFF7 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D8 

(7) 

r 

Q8  (7) 

r 

QSnot ( 7 ) 

r 

end  Registers," 
entity  RegisterlS  is 

port  (CLK,  LD,  RESET:  in  bit;  D13:  in  bit  vector  (12  downto  0); 
Q13:  inout  bit_vector  (12  downto  0); 

Q13not:  out  bit_vector  (12  downto  0)); 
end  Registerl3," 

architecture  Registerl3  of  Registerl3  is 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 
end  component; 


begin 


DFFO 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (0) 

r 

Q13  (0)  , 

QlSnot (0) 

DFFl 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (1) 

r 

Q13  (1)  , 

QlSnot ( 1 ) 

DFF2 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (2) 

r 

Q13  (2)  , 

QlSnot (2 ) 

DFFS 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (3) 

r 

Q13  (3)  , 

QlSnot (3) 

DFF4 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (4) 

r 

Q13  (4)  , 

QlSnot (4) 

DFFS 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (S) 

r 

Q13  (S)  , 

QlSnot (S) 

DFF6 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (6) 

t 

Q13  (6)  , 

QlSnot (6) 

DFF7 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13  (7) 

r 

Q13  (7)  , 

QlSnot (7) 

DFFS 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13  (8) 

r 

Q13  (8)  , 

QlSnot ( 8 ) 

DFF9 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

D13 (9) 

r 

Q13  (9)  , 

QlSnot (9) 

DFFIO:  DFlipFlop  port  map  (CLK,  LD,  RESET,  D13(10),  Q13(10), 
Q13not (10) ) ; 

DFFll:  DFlipFlop  port  map  (CLK,  LD,  RESET,  D13(ll),  Q13(ll), 
Q13not (11) ) ; 
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DFF12:  DFlipFlop  port  map  (CLK,  LD,  RESET,  D13(12),  Q13(12) 
Q13not (12) ) ; 
end  Registerl3; 


entity  Registerl?  is 

port  (CLK,  LD,  RESET:  in  bit;  D17:  in  bit  vector  ( 
Q17:  inout  bit  vector  (16  downto  0); 

Q17not:  out  bit_vector  (16  downto  0)); 
end  Registerl7; 

architecture  Registerll  of  Registerll  is 

component  DFlipFlop 

port  (CLK,  LD,  RESET, D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 
end  component; 


begin 


DFFO:  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (0)  , 

DFFl :  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (1)  , 

DFF2 :  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (2)  , 

DFF3 :  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (3) , 

DFF4 :  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (4)  , 

DFF5 :  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (5) , 

DFF6:  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17 (6) , 

DFF7 :  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (7)  , 

DFF8 :  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17  (8)  , 

DFF9:  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17 (9) , 

DFFIO:  DFlipFlop  port 
Q17not (10) ) ; 

map  (CLK, 

LD, 

RESET, 

D17 (10) 

DFFll:  DFlipFlop  port 
Q17not (11) ) ; 

map  (CLK, 

LD, 

RESET, 

D17 (11) 

DFF12:  DFlipFlop  port 
Q17not ( 12 ) ) ; 

map  (CLK, 

LD, 

RESET, 

D17  (12) 

DFF13:  DFlipFlop  port 
Q17not (13) ) ; 

map  (CLK, 

LD, 

RESET, 

D17 (13) 

DFF14:  DFlipFlop  port 
Q17not ( 14 ) ) ; 

map  (CLK, 

LD, 

RESET, 

D17 (14) 

DFF15:  DFlipFlop  port 
Q17not (15) ) ; 

map  (CLK, 

LD, 

RESET, 

D17 (15) 

DFF16:  DFlipFlop  port 

map  (CLK, 

LD, 

RESET, 

D17 (16) 

Q17not (16) )  ; 
end  Registerl7; 

entity  ROMLUT  is 

port  (SIN,  COS:out  bit_vector(8  downto  1); 

FIVEBITSrin  bit  vector (5  downto  1)); 
end  ROMLUT;  ~ 

architecture  ROMLUT  of  ROMLUT  is 

signal  ROMLUTValue  :  bit  vector(15  downto  0); 

begin 

with  FIVEBITS  Select 

ROMLUTValue  <="0000000001111111"  when  "00000",- 
"0001100101111101"  when  "00001",--! 
"0011000101110101"  when  "00010", --2 


16  downto  0) ; 


Q17(0),  Q17not(0)); 
Q17(l),  Q17not(l)); 
Q17(2),  Q17not(2)); 
Q17(3),  Q17not(3)); 
Q17(4),  Q17not(4)); 
Q17 (5) ,  Q17not(5)); 
Q17(6),  Q17not(6)); 
Q17  (7)  ,  Q17not  (7) ) ; 
Q17(8),  Q17not(8)); 
Q17(9),  Q17not(9)); 
,  Q17(10), 

,  Q17(ll), 

,  Q17(12), 

,  Q17(13), 

,  Q17(14), 

,  Q17(15), 

,  Q17(16), 
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"0100011101101010"  when 
"0101101001011010"  when 
"0110101001000111"  when 
"0111010100110001"  when 
"0111110100011001"  when 
"0111111100000000"  when 
"0111110111100111"  when 
"0111010111001111"  when 
"0110101010111001"  when 
"0101101010100110"  when 
"0100011110010110"  when 
"0011000110001011"  when 
"0001100110000011"  when 
"0000000010000001"  when 
"1110011110000011"  when 
"1100111110001011"  when 
"1011100110010110"  when 
"1010011010100110"  when 
"1001011010111001"  when 
"1000101111001111"  when 
"1000001111100111"  when 
"1000000100000000"  when 
"1000001100011001"  when 
"1000101100110001"  when 
"1001011001000111"  when 
"1010011001011010"  when 
"1011100101101010"  when 
"1100111101110101"  when 
"1110011101111101"  when 
"0000000000000000"  when 


"00011", --3 
"00100", --4 
"00101", --5 
"00110", --6 
"00111", --7 
"01000", --8 
"01001", --9 
"01010", --A 
"01011", --b 
"01100", --C 
"01101", --d 
"OHIO",  --E 
"01111", --F 
"10000", --10 
"10001", --11 
"10010", --12 
"10011", --13 
"10100", --14 
"10101", --15 
"10110", --16 
"10111", --17 
"11000", --18 
"11001", --19 
"11010", --1A 
"11011", --lb 
"11100", --1C 
"11101", --Id 
"11110", --1E 
"11111", --IF 
others ; --Never  Occurs 


SIN  <=  ROMLUTValue (15  downto  8 ) ; 
COS  <=  ROMLUTValue (7  downto  0); 
end  ROMLUT; 


entity  FullAdder  is 
port  (X,  Y,  Cin:  in  bit; 

Cout,  Sum:  out  bit) ; 
end  FullAdder; 

architecture  Equations  of  FullAdder  is 
begin 

Sum  <=  X  xor  Y  xor  Cin; 

Cout  <=  (X  and  Y)  or  (X  and  Cin)  or  (Y  and  Cin) 
end  Equations; 

entity  FullAdderOV  is 

port  (Ci,  Cout,  OVin:  in  bit; 

Co,  OVout :  out  bit); 
end  FullAdderOV; 

architecture  Equations  of  FullAdderOV  is 
begin 

Co  <=  Cout; 

OVout  <=  OVin  or  (Ci  xor  Cout) ; 
end  Equations; 


entity  Adder5  is 
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port  (A,  B:  in  bit  vector (4  downto  0);  Ci :  in  bit; 

S:  out  bit_vector(4  downto  0);  Co:  out  bit); 
end  Adders ; 

architecture  AdderS  of  AdderS  is 
component  FullAdder 
port  (X,  Y,  Cin:  in  bit; 

Cout,  Sum:  out  bit) ; 
end  component; 

signal  C:  bit  vector (4  downto  1); 
begin 

FAO :  FullAdder  port  map  (A(0),  B(0),  Ci,  C(l),  S(0)); 

FAl :  FullAdder  port  map  (A(l),  B(l),  C(l),  C(2),  S(l)); 

FA2 :  FullAdder  port  map  (A (2),  B(2),  C(2),  C(3),  S(2)); 

FA3 :  FullAdder  port  map  (A (3),  B(3),  C(3),  C(4),  S(3)); 

FA4 :  FullAdder  port  map  (A(4),  B(4),  C(4),  Co,  S(4)); 

end  AdderS; 

entity  CLAH4  is 

port  (A,  B:  in  bit  vector(3  downto  0);  Cin:  in  bit; 

Cout:  out  bit); 
end  CLAH4; 

architecture  CLAH4  of  CLAH4  is 

signal  gO,  gl,  g2,  g3,  pO,  pi,  p2,  p3 :  bit; 

begin 

gO  <=  A(0)  and  B(0); 
pO  <=  A ( 0 )  or  B ( 0 )  ; 
gl  <=  A(l)  and  B(l); 
pi  <=  A ( 1 )  or  B  ( 1 ) ; 
g2  <=  A (2)  and  B(2); 
p2  <=  A (2)  or  B(2); 
g3  <=  A (3)  and  B(3); 
p3  <=  A ( 3 )  or  B  ( 3 ) ; 

Cout  <=  g3  or  (p3  and  g2)  or  (p3  and  p2  and  gl)  or  (p3  and  p2  and  pi  and  gO)  or 
(p3  and  p2  and  pi  and  pO  and  Cin)  ; 
end  CLAH4; 

entity  CLAH8  is 

port  (A,  B:  in  bit  vector(7  downto  0);  Cin:  in  bit; 

Cout :  out  bit) ; 
end  CLAH8; 

architecture  CLAH8  of  CLAH8  is 

signal  gO,  gl,  g2,  g3,  g4,  gS,  g6,  g7,  pO,  pi,  p2,  p3,  p4,  pS,  p6,  p7 : 

bit; 

begin 

gO  <=  A(0)  and  B(0); 
pO  <=  A ( 0 )  or  B ( 0 )  ; 
gl  <=  A(l)  and  B(l); 
pi  <=  A ( 1 )  or  B ( 1 )  ; 
g2  <=  A (2)  and  B(2); 
p2  <=  A (2)  or  B(2); 
g3  <=  A (3)  and  B(3); 
p3  <=  A ( 3 )  or  B  ( 3 ) ; 
g4  <=  A (4)  and  B  (4) ; 
p4  <=  A (4)  or  B(4); 
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g5  <=  A (5)  and  B(5); 
p5  <=  A ( 5 )  or  B  ( 5 ) ; 
g6  <=  A (6)  and  B(6); 
p6  <=  A ( 6)  or  B ( 6) ; 
g7  <=  A (7)  and  B(7); 
p7  <=  A ( 7 )  or  B ( 7 ) ; 

Cout  <=  g7  or  (p7  and  g6)  or  (p7  and  p6  and  g5)  or  (p7  and  p6  and  p5  and  g4)  or 
(p7  and  p6  and  p5  and  p4  and  g3)  or 

(p7  and  p6  and  p5  and  p4  and  p3  and  g2)  or 

(p7  and  p6  and  p5  and  p4  and  p3  and  p2  and  gl)  or 

(p7  and  p6  and  p5  and  p4  and  p3  and  p2  and  pi  and  gO)  or 

(p7  and  p6  and  p5  and  p4  and  p3  and  p2  and  pi  and  pO  and  Cin) ; 

end  CLAH8; 

entity  AdderlG  is 

port  (A,  B:  in  bit  vector(15  downto  0);  Ci,  OVin:  in  bit; 

S:  out  bit_vector ( 1 6  downto  0);  Co:  out  bit); 
end  AdderlG;  --bit  16  of  S  is  overflow 

architecture  AdderlG  of  AdderlG  is 
component  CLAH4 

port  (A,  B:  in  bit  vector(3  downto  0);  Cin:  in  bit; 

Cout:  out  bit); 
end  component; 
component  CLAH8 

port  (A,  B:  in  bit  vector(7  downto  0);  Cin:  in  bit; 

Cout :  out  bit) ; 
end  component; 
component  FullAdder 
port  (X,  Y,  Cin:  in  bit; 

Cout,  Sum:  out  bit) ; 

end  component; 

component  FullAdderOV 

port  (Ci,  Cout,  OVin:  in  bit; 

Co,  OVout :  out  bit); 
end  component; 

signal  C:  bit  vector (16  downto  1); 
signal  dummyl,  dummy2 ,  dummy 3 :  bit; 
begin 

FAO :  FullAdder  port  map  (A(0),  B(0),  Ci,  C(l),  S(0)); 

FAl :  FullAdder  port  map  (A(l),  B(l),  C(l),  C(2),  S(l)); 

FA2 :  FullAdder  port  map  (A(2),  B(2),  C(2),  C(3),  S(2)); 

FA3 :  FullAdder  port  map  (A (3),  B(3),  C(3),  dummyl,  S(3)); 

CLAHO:  CLAH4  port  map  (A (3  downto  0),  B(3  downto  0),  Ci,  C(4)); 

FA4 :  FullAdder  port  map  (A (4),  B(4),  C(4),  C(5),  S(4)); 

FAS:  FullAdder  port  map  (A(5),  B(5),  C(5),  C(6),  S(5)); 

FA6 :  FullAdder  port  map  (A(6),  B(6),  C(6),  C(7),  S(6)); 

FA7 :  FullAdder  port  map  (A (7),  B(7),  C(7),  dummy2 ,  S(7)); 

CLAHl :  CLAH8  port  map  (A (7  downto  0),  B(7  downto  0),  Ci,  C(8)); 

FA8 :  FullAdder  port  map  (A (8),  B(8),  C(8),  C(9),  S(8)); 

FA9 :  FullAdder  port  map  (A(9),  B(9),  C(9),  C(10),  S(9)); 

FAIO:  FullAdder  port  map  (A(10),  B(10),  C(10),  C(ll),  S(10)); 

FAll:  FullAdder  port  map  (A (11),  B(ll),  C(ll),  dummy3,  S(ll)); 

CLAH2 :  CLAH4  port  map  (A (11  downto  8),  B(ll  downto  8),  C(8),  C(12)); 

FA12:  FullAdder  port  map  (A(12),  B(12),  C(12),  C(13),  S(12)); 

FA13:  FullAdder  port  map  (A(13),  B(13),  C(13),  C(14),  S(13)); 
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FA14:  FullAdder  port  map  (A(14),  B(14),  C(14),  C(15),  S(14)); 

FA15:  FullAdder  port  map  (A (15),  B(15),  C(15),  C(16),  S(15)); 

FAOV:  FullAdderOV  port  map  (C(15),  C(16),  OVin,  Co,  S(16)); 
end  Adder 16; 

entity  ControlLogic  is 

port  (ODVin,  URB,  PSVin,  CLK,  OPER:  in  bit; 

CLR13,  CLR17:  out  bit  :=  ODVout,  PSVout:  out  bit) ; 

end  ControlLogic; 

architecture  ControlLogic  of  ControlLogic  is 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 
end  component; 

signal  RESET,  Dl,  Ql,  QlNot, D2, Q2, Q2Not, D3, Q3, Q3Not, D4, Q4, Q4Not, 

PSVD, PSVQ, PSVQNotrbit; 
begin 

RESET  <=  ' 0  '  ; 

PSVFF:  DFlipFlop  port  map  (CLK,  OPER,  RESET,  PSVD,  PSVQ,  PSVQNot) ; 
DFFl:  DFLipFlop  port  map(CLK,  OPER,  RESET,  Dl,  Ql,  QlNot); 

DFF2:  DFLipFlop  port  map(CLK,  OPER,  RESET,  D2,  Q2,  Q2Not) ; 

DFF3:  DFLipFlop  port  map (CLK,  OPER,  RESET,  D3,  Q3,  Q3Not) ; 

DFF4:  DFLipFlop  port  map(CLK,  OPER,  RESET,  D4,  Q4,  Q4Not) ; 

PSVD  <=  PSVin; 

Dl  <=  URB  and  PSVQ; 

D2  <=  Ql; 

D3  <=  ODVin  or  Q2; 

D4  <=  Q3; 

CLR13  <=  Q2Not; 

CLR17  <=  Q3Not; 

PSVout  <=  PSVQ; 

ODVout  <=  Q4; 
end  ControlLogic; 

entity  GainShifter  is 

port  (Control: in  bit  vector (4  downto  1); 

Data:  in  bit_vector(8  downto  1); 

Output:  out  bit_vector ( 13  downto  1)); 
end  GainShifter; 

architecture  GainShifter  of  GainShifter  is 
begin 

process  (Control , Data) 
begin 

Output (13  downto  1)  <=  "0000000000000"; 
case  Control  is 

when  "0000"  =>  Output (3  downto  1)  <=  Data (8  downto  6); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  4)  <=  "1111111111"; 
end  if; 

when  "0001"  =>  Output (4  downto  1)  <=  Data (8  downto  5); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output  (13  downto  5)  <=  "111111111"; 
end  if; 

when  "0010"  =>  Output (5  downto  1)  <=  Data (8  downto  4); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
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Output (13  downto  6)  <=  "11111111"; 
end  if; 

when  "0011"  =>  Output (6  downto  1)  <=  Data (8  downto  3); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  7)  <=  "1111111"; 
end  if; 

when  "0100"  =>  Output (6  downto  1)  <=  Data (8  downto  3); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output  (13  downto  7)  <=  "1111111"; 
end  if; 

when  "0101"  =>  Output (7  downto  1)  <=  Data (8  downto  2); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  8)  <=  "111111"; 
end  if; 

when  "0110"  =>  Output (8  downto  1)  <=  Data (8  downto  1); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  9)  <=  "11111"; 
end  if; 

when  "0111"  =>  Output (9  downto  2)  <=  Data (8  downto  1); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output  (13  downto  10)  <=  "1111"; 
end  if; 

when  "1000"  =>  Output (7  downto  1)  <=  Data (8  downto  2); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  8)  <=  "111111"; 
end  if; 

when  "1001"  =>  Output (8  downto  1)  <=  Data (8  downto  1); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  9)  <=  "11111"; 
end  if; 

when  "1010"  =>  Output ( 9  downto  2)  <=  Data (8  downto  1); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output  (13  downto  10)  <=  "1111"; 
end  if; 

when  "1011"  =>  Output  (10  downto  3)  <=  Data  (8  downto  1) 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  11)  <=  "111"; 
end  if; 

when  "1100"  =>  Output (10  downto  3)  <=Data(8  downto  1); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13  downto  11)  <=  "111"; 
end  if; 

when  "1101"  =>  Output (11  downto  4)  <=Data(8  downto  1); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output  (13  downto  12)  <=  "11"; 
end  if; 

when  "1110"  =>  Output (12  downto  5)  <=Data(8  downto  1); 
if  Data (8)='!'  then  --need  to  preserve  the  sign  bit 
Output (13)  <= 
end  if; 

when  "1111"  =>  Output (13  downto  6)  <=Data(8  downto  1); 

when  others  =>  --  summon  blue  screen  of  death 

end  case; 

end  process; 

end  GainShifter; 

entity  OneBin  is 

port  (PhaseSamp,  Phaseinc:  in  bit  vector  (5  downto  1); 
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Gain:  in  bit  vector  (4  downto  1); 

URB,  UNP,  PRB,  ODVin,  PSVin:  in  bit; 

OtherBinDataSIN,  OtherBinDataCOS :  in  bit_vector  (17  downto  1); 

Q,  I:  out  bit_vector  (17  downto  1); 

ODVout,  PSVout:  out  bit; 

DRFM:  out  bit  vector  (5  downto  1); 

CLK:  in  bit) ; 
end  OneBin; 

architecture  OneBin  of  OneBin  is 
component  Registers  is 

port  (CLK,  LD,  RESET:  in  bit;  D5 :  in  bit  vector  (4  downto  0); 

Q5 :  inout  bit_vector  (4  downto  0);  QSnot:  out  bit_vector  (4  downto  0)); 
end  component; 
component  Registers  is 

port  (CLK,  LD,  RESET:  in  bit;  D8 :  in  bit  vector  (7  downto  0); 

Q8 :  inout  bit_vector  (7  downto  0);  QSnot:  out  bit_vector  (7  downto  0) ) ; 
end  component; 
component  RegisterlS  is 

port  (CLK,  LD,  RESET:  in  bit;  D13:  in  bit  vector  (12  downto  0); 

Q13:  inout  bit  vector(12  downto  0 ) ; Q13not : out  bit  vector(12  downto  0)); 
end  component; 
component  Registerll  is 

port  (CLK,  LD,  RESET:  in  bit;  D17:  in  bit  vector  (16  downto  0); 

Q17:  inout  bit_vector ( 1 6  downto  0 ) ; Q17not : out  bit_vector ( 1 6  downto  0)); 
end  component; 
component  AdderS  is 

port  (A,  B:  in  bit  vector (4  downto  0);  Ci :  in  bit; 

S:  out  bit_vector(4  downto  0);  Co:  out  bit); 
end  component; 
component  Adderl6  is 

port  (A,  B:  in  bit  vector(15  downto  0);  Ci,  OVin:  in  bit; 

S:  out  bit_vector ( 1 6  downto  0);  Co:  out  bit); 
end  component; 
component  ROMLUT  is 

port  (SIN,  COS:out  bit_vector(l  to  8); 

FIVEBITS:in  bit  vector (1  to  5)); 
end  component; 
component  GainShifter  is 

port  (Control:in  bit  vector(4  downto  l);Data:in  bit  vector(8  downto  1); 

Output:  out  bit_vector ( 13  downto  1)); 

end  component; 

component  ControlLogic  is 

port  (ODVin,  URB,  PSVin,  CLK,  OPER:  in  bit; 

CLR13,  CLR17,  ODVout,  PSVout:  out  bit) ; 
end  component; 

signal 

QOutRegl ,  QNotOutRegl ,  QOutReg2 , QNotOutReg2 , QOutReg3 , QNotOutReg3 , QOutReg4 
, QNotOutReg4 , 

QOutRegS, QNotOutRegS, QOutRegG, QNotOutReg6, OutAddl :  bit_vector  (5  downto 
1)  ; 

signal  QOutReg7 , QNotOutReg7 , QOutRegS , QNotOutRegS , LUTSIN,  LUTCOS : 
bit_vector  (8  downto  1); 

signal  QOutReg9, QNotOutReg9, QOutReglO, QNotOutReglO,  OutShiftSIN, 
OutShiftCOS:  bit  vector  (13  downto  1); 
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signal 

QOutRegll, QNotOutRegl 1 , Q0utRegl2, QNot0utRegl2 , Q0utRegl3, QNot0utRegl3, QO 
utRegl4 , QNotOutRegl4 , 

OutAdd2,  OutAdd3 :  bit_vector  (17  downto  1); 

signal  InputAdder2,  InputAdder3:  bit  vector  (16  downto  1); 

signal  OPER,  LD,  CLR5,  CLR8,  CLR13,  CLR17,  Ci,  Col,  Co2,  Co3, 

Reset_Inact:  bit; 

signal  InRegS:  bit  vector  (5  downto  1); 
begin 

OPER  <='!'; 

CLR5  <=  ' 0 ' ; 

CLR8  <=  ' 0 ' ; 

Ci  <=  ' 0 ' ; 

LD  <=  ' 1 ' ; 

Reset_Inact  <=  'O'; 

InRegS (4  downto  1)  <=  Gain  (4  downto  1); 

InRegS (5)  <=  URB; 

Regl :  Registers  port  map(CLK,  PRB,  CLRS,  PhaseInc(S  downto  1), 

QOutRegl (S  downto  1),  QNotOutRegl (S  downto  1)); 

Reg2 :  Registers  port  inap(CLK,  UNP,  CLRS,  QOutRegl (S  downto  1), 

QOutReg2 (S  downto  1),  QNot0utReg2 ( S  downto  1)); 

Reg3 :  Registers  port  map(CLK,  LD,  CLRS,  PhaseSamp(S  downto  1), 

QOutReg3 (S  downto  1) ,  QNot0utReg3 (S  downto  1) ) ; 

Addl :  Adders  port  map  (Q0utReg2 , Q0utReg3 ,  Ci,  OutAddl(S  downto  1), 

Col)  ; 

Reg4 :  Registers  port  map(CLK,  LD,  CLRS,  OutAddl(S  downto  1), 

Q0utReg4 (S  downto  1),  QNotOutRegl ( S  downto  1)); 

LUT:  ROMLUT  port  map  (LUTS IN (8  downto  l),LUTCOS(8  downto  1), 

QOutRegl (S  downto  1)); 

RegS :  Registers  port  map(CLK,  PRB,  CLRS,  InRegS (S  downto  1), 

QOutRegS(S  downto  1),  QNotOutRegS ( S  downto  1)); 

Reg6:  Registers  port  map(CLK,  UNP,  CLRS,  QOutRegS(S  downto  1), 

QOutReg6(S  downto  1),  QNotOutRegS ( S  downto  1)); 

Reg7 :  Register8  port  map(CLK,  LD,  CLR8,  LUTSIN(8  downto  1), 

QOutReg7(8  downto  1),  QNotOutRegl ( 8  downto  1)); 

Reg8 :  Register8  port  map(CLK,  LD,  CLR8,  LUTC0S(8  downto  1), 

QOutReg8(8  downto  1),  QNot0utReg8 ( 8  downto  1)); 

Shiftl:  GainShifter  port  map  (QOutReg6(4  downto  1 ), QOutRegl ( 8  downto  1 ) , OutShiftSIN ( 13 
Shift2:  GainShifter  port  map  (QOutReg6(4  downto  1 ) , Q0utReg8 ( 8  downto  1 ) , OutShiftCOS ( 13 
Reg9:  Registerl3  port  map(CLK,  LD,  CLR13,  OutShiftSIN ( 13  downto  1 ) , Q0utReg9 ( 13  downto  1 
ReglO:  Registerl3  port  map(CLK,  LD,  CLR13,  OutShiftCOS ( 13  downto  1),  QOutReglO(13  downt 

Regll:  Registerll  port  map(CLK,  LD,  Reset_Inact,  OtherBinDataSIN ( 17  downto  1),  QOutRegl 

Regl2:  Registerll  port  map(CLK,  LD,  Reset_Inact,  OtherBinDataCOS ( 17  downto  1),  QOutRegl 

Add2 :  AdderlS  port  map  ( InputAdder2 ,  QOutRegll (16  downto  1),  Ci,  QOutRegll (17) ,  0utAdd2 
Add3 :  AdderlS  port  map  ( InputAdder3 ,  QOutRegl2(16  downto  1),  Ci,  Q0utRegl2 ( 17 ) ,  0utAdd3 
Regl3:  Registerll  port  map(CLK,  LD,  CLR17,  OutAdd2(17  downto  1),  QOutRegl3(17  downto  1) 
Regll:  Registerll  port  map(CLK,  LD,  CLR17,  OutAdd3(17  downto  1),  QOutRegll (17  downto  1) 
Control:  ControlLogic  port  map  (ODVin,  Q0utReg6(S),  PSVin,  CLK,OPER,  CLR13,  CLR17,  ODVo 
InputAdder2 ( 13  downto  1)  <=  QOutReg9(13  downto  1); 

InputAdder2 ( 14 )  <=  Q0utReg9 (13) ; 

InputAdder2 (IS)  <=  Q0utReg9 (13) ; 

InputAdder2 (16)  <=  Q0utReg9 (13) ; 

InputAdder3 ( 13  downto  1)  <=  QOutReglO(13  downto  1); 

InputAdder3 ( 14 )  <=  QOutReglO (13) ; 

InputAdder3 (IS)  <=  QOutReglO (13) ; 

InputAdder3 (16)  <=  QOutReglO (13) ; 

DRFM(S  downto  1)  <=  Q0utReg3(S  downto  1); 
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Q  <=  Q0utRegl3; 

I  <=  Q0utRegl4; 
end  OneBin; 

— ****  BEGIN  REPLACE  HERE  ***** 

entity  FourBin  is 

port  (Input:  in  bit_vector  (63  downto  0); 

Output : out  bit_vector  (63  downto  0);  CLK:  in  bit); 
end  FourBin; 

architecture  FourBin  of  FourBin  is 
component  OneBin  is 

port  (PhaseSamp,  Phaseinc:  in  bit  vector  (5  downto  1); 

Gain:  in  bit  vector  (4  downto  1); 

URB,  UNP,  PRB,  ODVin,  PSVin:  in  bit; 

OtherBinDataSIN, OtherBinDataCOS : in  bit  vector  (17  downto  1); 

Q,  I:  out  bit_vector  (17  downto  1); 

ODVout,  PSVout:  out  bit; 

DRFM:  out  bit  vector  (5  downto  1); 

CLK:  in  bit) ; 
end  component; 

signal  Q,  I,  Ql, II, Q2, 12, Q3, 13 :  bit_vector  (17  downto  1) 
:="00000000000000000"; 

signal  DRFMO , DRFMl , DRFM2 , DRFM3 :  bit_vector  (5  downto  1):="00000"; 
signal  PSVoutO , PSVoutl , PSVout2 , PSVout3 :  bit:='0'; 
signal  ODVoutO , ODVoutl , ODVout2 , ODVout3 :  bit:='0'; 
signal  GainO , Gainl , Gain2 , Gain3 :  bit  vector  (4  downto  1):="0000"; 
signal  PhaseIncO , Phaselncl , Phaselnc2 , Phaselnc3 :  bit  vector  (5  downto  1) 
:="00000"; 

signal  URBO , URBl , URB2 , URB3 :  bit  :='0'; 

signal  PhaseSamp:  bit  vector  (5  downto  1) :=  "00000"; 

signal  PRB,  UNP,  PSVin,  ODVin:  bit  :='0'; 

begin  --  BINO  is  the  primary  output 

--Input:  formats,  cycle  begins  when  PRB=1,  1  format  per  clock 
--  ten  bits  of  each  bin:  10  |  9-5  1 4-1  | 

--  63-48  !47-38  |37-28  |27-18  |  17-8  |  7-3  |  2  |  1  |  0 

--unused  |  bin3  |  bin2  [  binl  |  binO  | sample  | PSVin  | UNP  | PRB 

--  63-8  I  7-3  I  2  I  1  I  0 

--unused  I  sample  | PSVin  | UNP  [PRB 

--  The  first  sample  can  be  entered  on  clock  2  if  PSVin  and  UNP  are 
taken  high 

PRB<= Input  (0) ; 

UNP<=Input  (1)  ; 

PSVin<=Input  (2) ; 

PhaseSamp<=Input  ( 7  downto  3); 

--  Bin  0  data 
URB0<=Input (17) ; 

Phaselnc0<=lnput ( 1 6  downto  12); 

Gain0<=lnput ( 1 1  downto  8); 

--  Bin  1  Data 
URBl<=Input (27) ; 
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Phaselncl<=lnput (26  downto  22); 

Gainl<=Input (21  downto  18); 

--  Bin  2  data 
URB2<= Input (31) ; 

Phaselnc2<=lnput (36  downto  32); 

Gain2<=Input (31  downto  28); 

--  Bins  3  data 
URB3<=Input (47) ; 

Phaselnc3<=lnput ( 4 6  downto  42); 

Gain3<=Input ( 4 1  downto  38); 

BINO:  OneBin  port  map  (DRFMl,  PhaseIncO,  GainO,  URBO,  UNP,  PRB, 
ODVoutl,  PSVoutl,  Ql,  II,  Q,  I,  ODVoutO,  PSVoutO,  DRFMO,  CLK) ; 
BINl:  OneBin  port  map  (DRFM2,  Phaselncl,  Gainl,  URBl,  UNP,  PRB, 
ODVout2,  PSVout2,  Q2,  12,  Ql,  II,  ODVoutl,  PSVoutl,  DRFMl,  CLK) 
BIN2:  OneBin  port  map  (DRFM3,  Phaselnc2,  Gain2,  URB2,  UNP,  PRB, 
ODVout3,  PSVout3,  Q3,  13,  Q2,  12,  ODVout2,  PSVout2,  DRFM2 ,  CLK) 
BIN3:  OneBin  port  map  (PhaseSamp,  Phaselnc3,  Gain3,  URB3,  UNP, 
ODVin,  PSVin,  "00000000000000000",  "00000000000000000",  Q3,  13, 
ODVout3,  PSVout3,  DRFM3,  CLK)  ; 

--  Output  Format: 

--  63-41  I  40  I  39  I  38-22  |  21-5  |  4-0 
--unused  |  PSVout  |  ODVout  I  0  I  I  I  DRFM 

Output (40) <=PSVout0 ; 

Output (39) <=ODVoutO; 

Output (38  downto  22)<=Q; 

Output (21  downto  5)<=I; 

Output (4  downto  0)<=DRFM0; 

Output  (63  downto  41) <="00000000000000000000000"; 
end  FourBin; 

— ****  end  replace  here  ***** 

B.  8  BIN  MACRO  VHDL 

entity  EightBin  is 

port  (Input:  in  bit_vector  (63  downto  0); 

Output : out  bit_vector  (63  downto  0);  CLK:  in  bit); 
end  EightBin; 

architecture  EightBin  of  EightBin  is 
component  OneBin  is 

port  (PhaseSamp,  Phaseinc:  in  bit  vector  (5  downto  1); 

Gain:  in  bit  vector  (4  downto  1); 

URB,  UNP,  PRB,  ODVin,  PSVin:  in  bit; 

OtherBinDataSIN, OtherBinDataCOS : in  bit  vector  (17  downto  1); 

0,  I:  out  bit_vector  (17  downto  1); 

ODVout,  PSVout:  out  bit; 

DRFM:  out  bit  vector  (5  downto  1); 

CLK:  in  bit) ; 

end  component; 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 


PRB, 
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Q:  inout  bit;  Qnot:  out  bit); 
end  component; 

signal  Q,  I,  Ql,  II,  Q2, 12, Q3, 13, Q4, 14, Q5, 15, Q6, 16, Q7, 17 :  bit_vector  (17 
downto  1) :="00000000000000000"; 

signal  DRFMO, DRFMl, DRFM2, DRFM3, DRFM4, DRFM5, DRFM6, DRFM7 :  bit_vector  (5 
downto  1):="00000"; 

signal  PSVoutO, PSVoutl, PSVout2, PSVout3, PSVout4, PSVout5, PSVout6, PSVout7 
bit:=' 0 ' ; 

signal  ODVoutO, ODVoutl, 0DVout2, 0DVout3, 0DVout4, 0DVout5, 0DVout6, 0DVout7 
bit:=' 0 ' ; 

signal  GainO, Gainl, Gain2, Gain3, Gain4, Gain5, Gain6, Gain7 :  bit  vector  (4 
downto  1):="0000"; 

signal  PhaseIncO, Phaselncl, Phaselnc2, Phaselnc3, Phaselnc4, 

Phaselnc5, PhaseIncG, Phaselnc7  :  bit  vector  (5  downto  1):="00000"; 
signal  URBO, URBl, URB2, URB3, URB4, URB5, URB6, URB7 :  bit  :='0'; 
signal  PhaseSamp:  bit  vector  (5  downto  1) :=  "00000"; 
signal  UNP,  PSVin,  ODVin:  bit  :='0'; 
signal  LD,  RESET,  PRB,  PRBl,  PRBlnot:  bit; 

begin  --  BINO  is  the  primary  output 


--Input : 

formats 

,  cycle 

begins 

when 

PRB=1,  1 

format 

per 

clock 

--  ten  bits  of  each  bin 

:  10  1 

9-5 

14-1  1 

--  63-48 

I  47-38 

1  37-28 

1  27-18 

17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin3 

1  bin2 

1  binl 

binO 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-48 

1  47-38 

1  37-28 

1  27-18 

17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin7 

1  bin6 

!  bin5 

bin4 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  sample 

1 PSVin 

1  UNP 

PRB 

--  The  first  sample  can  be  entered  on  clock  3  if  PSVin  and  UNP  are 
taken  high 
LD<= ' 1 ' ; 

RESET<=' 0 ' ; 

PRB<= Input (0) ; 

UNP<=Input (1) ; 

PSVin<=Input (2)  ; 

PhaseSamp<=Input ( 7  downto  3); 

--  Bins  0 , 4  data 
URB0<=Input (17) ; 

Phaselnc0<=lnput ( 1 6  downto  12); 

Gain0<=lnput ( 1 1  downto  8); 

URB4<=Input  (17)  ; 

Phaselnc4<=lnput ( 1 6  downto  12); 

Gain4<=Input  ( 1 1  downto  8); 

--  Bins  1 , 5  data 
URBl<=Input (27) ; 

Phaselncl<=lnput (26  downto  22); 

Gainl<=Input (21  downto  18); 

URB5<=Input  (27)  ; 

Phaselnc5<=lnput (26  downto  22); 

Gain5<=Input  (21  downto  18); 

--  Bins  2 , 6  data 
URB2<= Input {31) ; 

Phaselnc2<=lnput (36  downto  32); 

Gain2<=Input (31  downto  28); 

URB6<= Input  (37)  ; 

Phaselnc6<=lnput  (36  downto  32); 
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Gain6<=Input (31  downto  28); 

--  Bins  3 , 7  data 
URB3<=Input (47) ; 
Phaselnc3<=lnput ( 4 6  downto  42); 
Gain3<=Input ( 4 1  downto  38); 
URB7<=Input  (47)  ; 
Phaselnc7<=lnput ( 4 6  downto  42); 
Gain7<=Input  (41  downto  38); 


DFF:  DFlipFlop  port  map  (CLK 
BINO:  OneBin  port 
ODVoutl,  PSVoutl, 

BINl :  OneBin  port 
0DVout2,  PSVout2, 

BIN2 :  OneBin  port 
ODVout3,  PSVout3, 

BIN3:  OneBin  port 
ODVout4,  PSVout4, 

BIN4 :  OneBin  port 
ODVoutS,  PSVoutS, 

BINS:  OneBin  port 
ODVoute,  psvoute, 

BIN6:  OneBin  port 
0DVout7,  PSVout7, 

BIN7 :  OneBin  port 
ODVin,  PSVin,  " 

0DVout7,  PSVout7, 

--  Output  Format: 

--  63-41  I  40  I  39 
--unused  |  PSVout  |  ODVout  | 


LD,  RESET,  PRB,  PRBl,  PRBlnot) ; 
PhaseIncO,  GainO,  URBO,  UNP,  PRB, 
,  ODVoutO,  PSVoutO,  DRFMO,  CLK)  ; 

Gainl,  URBl,  UNP,  PRB, 
,  PSVoutl,  DRFMl,  CLK) 
Gain2,  URB2,  UNP,  PRB, 
,  PSVout2,  DRFM2,  CLK) 
Gain3,  URB3,  UNP,  PRB, 
,  PSVoutS,  DRFM3,  CLK) 
Gain4,  URB4,  UNP,  PRBl 
,  PSVout4,  DRFM4,  CLK) 
Gains,  URBS,  UNP,  PRBl 
,  PSVoutS,  DRFMS,  CLK) 
Gain6,  URB6,  UNP,  PRBl 
PSVoutS,  DRFM6,  CLK) 
URB7,  UNP, 
",  Q7,  17, 


map  (DRFMl, 

Ql,  II,  Q,  I 
map  (DRFM2,  Phaselncl, 

Q2,  12,  Ql,  II,  ODVoutl 
map  (DRFMS,  Phaselnc2, 

Q3,  13,  Q2,  12,  ODVout2 
map  (DRFM4,  PhaseIncS, 

Q4,  14,  Q3,  13,  ODVoutS 
map  (DRFMS,  Phaselnc4, 

QS,  IS,  Q4,  14,  ODVout4 
map  (DRFMS,  PhaseIncS, 

QS,  IS,  QS,  IS,  QDVoutS 
map  (DRFM7,  PhaseIncS, 

Q7,  17,  QS,  IS,  QDVoutS 
map  (PhaseSamp,  Phaselnc7,  Gain7 
00000000000000000",  "00000000000000000 
DRFM7,  CLK) ; 


I  38-22  I  21-S  I  4-0 
Q  I  I  I  DRFM 


Output (40) <=PSVout0; 

Output (39) <=ODVoutO; 

Output (38  downto  22)<=Q; 

Output (21  downto  S)<=I; 

Output (4  downto  0)<=DRFM0; 

Output (63  downto  41) <="00000000000000000000000"; 


end  EightBin; 


C.  16  BIN  MACRO  VHDL 

entity  SixteenBin  is 

port  (Input:  in  bit_vector  (63  downto  0); 

Output : out  bit_vector  (63  downto  0);  CLK:  in  bit); 
end  SixteenBin; 

architecture  SixteenBin  of  SixteenBin  is 
component  OneBin  is 

port  (PhaseSamp,  Phaseinc:  in  bit  vector  (S  downto  1); 

Gain:  in  bit  vector  (4  downto  1); 

URB,  UNP,  PRB,  ODVin,  PSVin:  in  bit; 

OtherBinDataSIN, OtherBinDataCOS : in  bit  vector  (17  downto  1); 
0,  I:  out  bit_vector  (17  downto  1); 

ODVout,  PSVout:  out  bit; 

DRFM:  out  bit  vector  (S  downto  1); 


PRBl, 
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CLK:  in  bit) ; 

end  component; 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 
end  component; 

signal  Q,  I,  Ql,  II,  Q2, 12,  Q3,  13,  Q4,  14,  Q5,  15,  Q6,  16,  Q7,  17,  Q8,  18,  Q9,  19, 

QIO, 110, Qll, Ill, Q12, 112, Q13, 113, Q14, 114,  Q15,I15:  bit  vector  (17  downto 
1) :="00000000000000000"; 

signal  DRFMO , DRFMl , DRFM2 , DRFM3 , DRFM4 , DRFM5 , DRFM6 , DRFM7 , DRFM8 , DRFM9 , 
DRFMIO, DRFMll, DRFM12, DRFM13, DRFM14, DRFM15 :  bit_vector  (5  downto 
1) :="00000"; 

signal  PSVoutO, PSVoutl, PSVout2, PSVout3, PSVout4, PSVout5, PSVout6, 

PSVout7, PSVout8, PSVout9, PSVoutlO, PSVoutll, PSVoutl2, PSVoutl3, PSVoutl4, PS 
Voutl5:  bit:='0'; 

signal  ODVoutO, ODVoutl, ODVout2, ODVout3, ODVout4, ODVout5, ODVout6, 

ODVout7, ODVout8, ODVout9, ODVoutlO, ODVoutll, ODVoutl2, ODVoutl3, ODVoutl4, OD 
Voutl5:  bit:='0'; 

signal  GainO, Gainl, Gain2, Gain3, Gain4, Gain5, Gain6, Gain7, Gain8, Gain9, 
GainlO, Gainll, Gainl2, Gainl3, Gainl4, Gainl5 :  bit  vector  (4  downto 
1) :="0000"; 

Signal 

PhaseIncO, Phaselncl, Phaselnc2, Phaselnc3, Phaselnc4, Phaselnc5, PhaseIncG, 
Phaselnc7  :  bit  vector  (5  downto  1) :="00000"; 

signal  Phaselnc8, Phaselnc9, PhaselnclO, Phaseincll, Phaselncl2, Phaselncl3, 
Phaselncl4 , Phaselncl5  :  bit  vector  (5  downto  1) :="00000"; 
signal  URBO, URBl, URB2, URB3, URB4, URB5, URB6, URB7, URB8, URB9, URBIO, URBll, 
URB12, URB13, URB14, URB15 :  bit  :='0'; 

signal  PhaseSamp:  bit  vector  (5  downto  1) :=  "00000"; 
signal  UNP,  PSVin,  ODVin:  bit  :='0'; 

signal  LD,  RESET,  PRB,  PRBl,  PRB2,  PRB3,  PRBlnot, PRB2not, PRB3not :  bit; 
begin  --  BINO  is  the  primary  output 


--Input : 

formats , 

cycle 

begins 

when  PRB=1,  1 

format 

per 

clock 

--  ten  bits  of  each  bin 

:  10  1 

9-5 

14-1  1 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin3  1 

bin2 

1  binl 

1  binO 

1  sample 

1 PSVin 

1  UNP 

!  PRB 

CO 

1 

ro 

1 

1 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin7  1 

bin6 

1  bin5 

1  bin4 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  binl 1 1 

binlO 1  bin9 

1  bin8 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

!  7-3 

1  2 

1  1 

1  0 

--unused 

1  binl5 1 

binl4 1  binl3 

1  binl2 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  The  first  sample  can  be  entered  on  clock  5  if  PSVin  and  UNP  are 
taken  high 
LD<= ' 1 ' ; 

RESET<=' 0 ' ; 

PRB<= Input (0) ; 

UNP<=Input (1) ; 

PSVin<=Input (2)  ; 

PhaseSamp<=Input ( 7  downto  3); 

--  Bins  0,4,8,12  data 
URB0<=Input (17) ; 
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PhaseIncO<=Input ( 1 6  downto  12); 

GainO<=Input ( 1 1  downto  8); 

URB4<=Input  (17)  ; 

Phaselnc4<=lnput ( 1 6  downto  12); 

Gain4<=lnput  ( 1 1  downto  8); 

URB8<=lnput (17) ; 

Phaselnc8<=lnput ( 1 6  downto  12); 

Gain8<=lnput ( 1 1  downto  8); 

URB12<=lnput (17)  ; 

Phaselncl2<=Input ( 1 6  downto  12); 

Gainl2<=Input ( 1 1  downto  8); 

--  Bins  1,5,9,13  data 
URBl<=Input  (27)  ; 

Phaselncl<=lnput (26  downto  22); 

Gainl<=lnput  (21  downto  18); 

URB5<=lnput (27) ; 

Phaselnc5<=lnput (26  downto  22); 

Gain5<=Input (21  downto  18); 

URB9<=Input  {21)  ; 

Phaselnc9<=Input (26  downto  22); 

Gain9<=lnput  (21  downto  18); 

URB13<=lnput (21) ; 

Phaselncl3<=lnput (26  downto  22); 

Gainl3<=Input (21  downto  18); 

--  Bins  2,6,10,14  data 
URB2<= Input  (37)  ; 

Phaselnc2<=lnput (36  downto  32); 

Gain2<=Input (31  downto  28); 

URB6<= Input (37) ; 

Phaselnc6<=lnput (36  downto  32); 

Gain6<=Input (31  downto  28); 

URB10<=Input (31)  ; 

PhaseInclO<=Input (36  downto  32); 

GainlO<=Input (31  downto  28); 

URB14<=Input (31)  ; 

Phaselncl4<=lnput (36  downto  32); 

Gainl4<=Input (31  downto  28); 

--  Bins  3,7,11,15  data 
URB3<=Input (47) ; 

Phaselnc3<=lnput ( 4 6  downto  42); 

Gain3<=Input ( 4 1  downto  38); 

URB7<=Input  (47)  ; 

Phaselnc7<=lnput ( 4 6  downto  42); 

Gain7<=Input  (41  downto  38); 

URBll<=Input (47); 

Phaselncl l<=Input ( 4 6  downto  42); 

Gainl l<=Input ( 4 1  downto  38); 

URB15<=Input (47)  ; 

Phaselncl5<=lnput (46  downto  42); 

Gainl5<=Input (41  downto  38); 

DFFO:  DFlipFlop  port  map  (CLK,  LD,  RESET,  PRB,  PRBl,  PRBlnot) ; 

DFFl:  DFlipFlop  port  map  (CLK,  LD,  RESET,  PRBl,  PRB2,  PRB2not) 

DFF2:  DFlipFlop  port  map  (CLK,  LD,  RESET,  PRB2,  PRB3,  PRB3not) 

BINO:  OneBin  port  map  (DRFMl,  PhaseIncO,  GainO,  URBO,  UNP,  PRB 
ODVoutl,  PSVoutl,  Ql,  II,  Q,  I,  ODVoutO,  PSVoutO,  DRFMO,  CLK) ; 
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BINl:  OneBin  port  map  (DRFM2,  Phaselncl,  Gainl,  URBl,  UNP,  PRB, 

ODVout2,  PSVout2,  Q2,  12,  Ql,  II,  ODVoutl,  PSVoutl,  DRFMl,  CLK) ; 

BIN2:  OneBin  port  map  (DRFM3,  Phaselnc2,  Gain2,  URB2,  UNP,  PRB, 

0DVout3,  PSVout3,  Q3,  13,  Q2,  12,  0DVout2,  PSVout2,  DRFM2 ,  CLK) ; 

BIN3:  OneBin  port  map  (DRFM4,  Phaselnc3,  Gain3,  URB3,  UNP,  PRB, 

ODVouti,  PSVouti,  Q4,  14,  Q3,  13,  0DVout3,  PSVout3,  DRFM3,  CLK) ; 

BIN4:  OneBin  port  map  (DRFM5,  Phaselnc4,  Gain4,  URB4,  UNP,  PRBl, 
ODVoutS,  PSVoutS,  Q5,  15,  Q4,  14,  0DVout4,  PSVout4,  DRFM4 ,  CLK) ; 

BIN5:  OneBin  port  map  (DRFM6,  Phaselnc5,  Gain5,  URB5,  UNP,  PRBl, 
ODVoute,  PSVoute,  Q6,  16,  Q5,  15,  0DVout5,  PSVout5,  DRFM5,  CLK) ; 

BIN6:  OneBin  port  map  (DRFM7,  Phaselnc6,  Gain6,  URB6,  UNP,  PRBl, 
ODVoutl,  PSVoutl,  Ql,  II,  Q6,  16,  0DVout6,  PSVout6,  DRFM6,  CLK) ; 

BINl:  OneBin  port  map  (DRFM8,  Phaselncl,  Gainl,  URBl,  UNP,  PRBl, 
ODVoutS,  PSVoutS,  Q8,  18,  Q7,  17,  ODVoutl,  PSVoutl,  DRFMl,  CLK) ; 

BINS:  OneBin  port  map  (DRFM9,  PhaseIncS,  GainS,  URB8,  UNP,  PRB2, 
ODVout9,  PSVout9,  Q9,  19,  Q8,  18,  ODVoutS,  PSVoutS,  DRFM8,  CLK) ; 

BIN9:  OneBin  port  map  (DRFMIO,  Phaselnc9,  Gain9,  URB9,  UNP,  PRB2, 
ODVoutlO,  PSVoutlO,  QIO,  110,  Q9,  19,  ODVout9,  PSVout9,  DRFM9,  CLK) ; 
BINIO:  OneBin  port  map  (DRFMll,  PhaselnclO,  GainlO,  URBIO,  UNP,  PRB2, 
ODVoutll,  PSVoutll,  Qll,  Ill,  QIO,  110,  ODVoutlO,  PSVoutlO,  DRFMIO, 

CLK)  ; 

BINll:  OneBin  port  map  (DRFM12,  Phaseincll,  Gainll,  URBll,  UNP,  PRB2, 
ODVoutl2,  PSVoutl2,  Q12,  112,  Qll,  Ill,  ODVoutll,  PSVoutll,  DRFMll, 

CLK)  ; 

BIN12:  OneBin  port  map  (DRFM13,  Phaselncl2,  Gainl2,  URB12,  UNP,  PRB3, 
ODVoutl3,  PSVoutl3,  Q13,  113,  Q12,  112,  ODVoutl2,  PSVoutl2,  DRFM12, 

CLK)  ; 

BIN13:  OneBin  port  map  (DRFM14,  Phaselncl3,  Gainl3,  URB13,  UNP,  PRB3, 
ODVoutl4,  PSVoutl4,  Q14,  114,  Q13,  113,  ODVoutl3,  PSVoutl3,  DRFM13, 

CLK)  ; 

BIN14:  OneBin  port  map  (DRFM15,  Phaselncl4,  Gainl4,  URB14,  UNP,  PRB3, 
ODVoutl5,  PSVoutl5,  Q15,  115,  Q14,  114,  ODVoutl4,  PSVoutl4,  DRFM14, 

CLK)  ; 

BIN15:  OneBin  port  map  (PhaseSamp,  Phaselncl5,  Gainl5,  URB15,  UNP, 

PRB3,  ODVin,  PSVin,  "00000000000000000",  "00000000000000000",  Q15,  115, 
ODVoutl5,  PSVoutl5,  DRFM15,  CLK)  ; 

--  Output  Format: 

--  63-41  I  40  I  39  I  38-22  |  21-5  |  4-0 

--unused  |  PSVout  |  ODVout  I  Q  I  I  I  DRFM 

Output (40) <=PSVout0; 

Output (39) <=ODVoutO; 

Output (38  downto  22)<=Q; 

Output  (21  downto  5)<=I; 

Output (4  downto  0)<=DRFM0; 

Output (63  downto  41) <="00000000000000000000000"; 
end  SixteenBin; 

D.  64  BIN  MACRO  VHDL 

entity  SixtyFourBin  is 

port  (Input:  in  bit_vector  (63  downto  0); 

Output : out  bit_vector  (63  downto  0);  CLK:  in  bit); 
end  SixtyFourBin; 
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architecture  SixtyFourBin  of  SixtyFourBin  is 


component  OneBin  is 

port  (PhaseSamp,  Phaseinc:  in  bit  vector  (5  downto  1); 

Gain:  in  bit  vector  (4  downto  1); 

URB,  UNP,  PRB,  ODVin,  PSVin:  in  bit; 

OtherBinDataSIN, OtherBinDataCOS : in  bit  vector  (17  downto  1); 

Q,  I:  out  bit_vector  (17  downto  1); 

ODVout,  PSVout:  out  bit; 

DRFM:  out  bit  vector  (5  downto  1); 

CLK:  in  bit) ; 

end  component; 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 
end  component; 

signal  Q,  I,  Ql,  II,  Q2, 12,  Q3,  13,  Q4,  14,  Q5,  15,  Q6,  16,  Q7,  17,  Q8,  18,  Q9,  19, 

QIO, 110, Qll, Ill, Q12, 112, Q13, 113, Q14, 114, Q15, 115 :  bit  vector  (17  downto 
1) :="00000000000000000"; 

signal  Q16,  116,  Q17, 117, Q18, 118, Q19, 119, Q20, 120, Q21, 121, Q22, 122, Q23, 
123, Q24, 124, Q25, 125, 

Q2  6,  126,  Q2 7,  127,  Q2 8,  128, Q2 9,  129, Q30,  130, Q31, 131 :bit_vector  (17  downto 
1) :="00000000000000000"; 

signal  Q32,  132,  Q33, 133, Q34, 134, Q35, 135, Q36, 136, Q37, 137, Q38, 138, 

Q39, 139, Q40, 140, Q4 1,141, 

Q42, 142, Q43, 143, Q44, 144, Q45, 145, Q46, 146, Q47, 147 :  bit  vector  (17  downto 
1) :="00000000000000000"; 

signal  Q48,  148,  Q49, 149, Q50, 150, Q51, 151, Q52, 152, Q53, 153, Q54, 154, Q55, 
155, Q56, 156, Q57, 157, 

Q58, 158, Q59, 159, Q60, 160, Q61, 161, Q62, 162, Q63, 163 :  bit_vector  (17  downto 
1) :="00000000000000000"; 

signal  DRFMO ,  DRFMl ,  DRFM2  ,  DRFM3 , DRFM4 , DRFM5 , DRFM6 , DRFM7 , DRFM8 , DRFM9 , 
DRFMIO, DRFMll, DRFM12, DRFM13, DRFM14, DRFM15 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFMl 6 ,  DRFMl 7 , DRFMl 8 , DRFMl 9 , DRFM2  0 , DRFM2 1 , DRFM2  2 , DRFM2  3 , DRFM2  4 , DRFM2  5 , 
DRFM26, DRFM27, DRFM28, DRFM29, DRFM30, DRFM31 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFM3  2  ,  DRFM3  3 ,  DRFM3  4  ,  DRFM3  5 ,  DRFM3  6 ,  DRFM3  7  ,  DRFM3  8 ,  DRFM3  9 ,  DRFM4  0 ,  DRFM4 1 , 
DRFM42, DRFM43, DRFM44, DRFM45, DRFM46, DRFM47 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFM4  8  ,  DRFM4  9 ,  DRFM5  0 ,  DRFM5 1 ,  DRFM5  2  ,  DRFM5  3 ,  DRFM5  4  ,  DRFM5  5 ,  DRFM5  6 ,  DRFM5  7  , 
DRFM58, DRFM59, DRFM60, DRFM61, DRFM62, DRFM63 :  bit_vector  (5  downto 
1) :="00000"; 

signal  PSVoutO, PSVoutl, PSVout2, PSVout3, PSVout4, PSVout5, PSVout6, 

PSVout7, PSVout8, PSVout9, PSVoutlO, PSVoutll, PSVoutl2, PSVoutl3, PSVoutl4, 
PSVoutl5:  bit:='0'; 

signal  PSVoutl6, PSVoutl7, PSVoutl8, PSVoutl9, PSVout20, PSVout21, PSVout22, 
PSVout23, PSVout24, PSVout25, PSVout26, PSVout27, PSVout28, PSVout29, PSVout30 
,PSVout31:  bit:='0'; 

signal  PSVout32, PSVout33, PSVout34, PSVout35, PSVout36, PSVout37 , PSVout38 , 
PSVout39, PSVout40, PSVout41, PSVout42, PSVout43, PSVout44, PSVout45, PSVout46 
,PSVout47:  bit:='0'; 

signal  PSVout48, PSVout49, PSVout50, PSVout51, PSVout52, PSVout53, PSVout54, 
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PSVout55, PSVout56, PSVout57, PSVout58, PSVout59, PSVout60, PSVout61, PSVout62 
,PSVout63:  bit:='0'; 

signal  ODVoutO, ODVoutl, 0DVout2, ODVoutS, 0DVout4, ODVoutS, ODVoutG, 

0DVout7, ODVoutS, 0DVout9, ODVoutlO, ODVoutll, 0DVoutl2, 0DVoutl3, 0DVoutl4, OD 
VoutlS:  bit:='0'; 

signal  ODVoutlG, ODVoutl7, ODVoutlS, ODVoutl9, ODVout20, ODVout21, ODVout22, 
ODVout23, ODVout24, ODVout25, ODVout26, ODVout27, ODVout28, ODVout29, ODVout30 
,ODVout31:  bit:='0'; 

signal  ODVout32, ODVout33, ODVout34, ODVout35, ODVout36, ODVout37, ODVout38, 
ODVout39, ODVout40, 0DVout41, ODVout42, ODVout43, ODVout44, ODVout45, ODVout46 
,ODVout47:  bit:='0'; 

signal  ODVout48, ODVout49, ODVoutSO, ODVoutSl, ODVout52, ODVout53, ODVout54, 
ODVoutSS, ODVoutSe, ODVout57, ODVout58, ODVout59, ODVouteO, ODVoutei, ODVout62 
,ODVout63:  bit:='0'; 

signal  GainO, Gainl, Gain2, Gain3, Gain4, GainS, Gain6, Gain7, Gain8, Gain9, 
GainlO, Gainll, Gainl2, Gainl3, Gainl4, GainlS :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gainl 6,  Gainl 7, Gainl 8, Gainl 9, Gain20, Gain21, Gain22, Gain23, Gain24, Gain25, 
Gain26, Gain27, Gain28, Gain29, Gain30, Gain31 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gain32,  Gain33, Gain34, Gain35, Gain36, Gain37, Gain38, Gain3  9, Gain4  0, Gain41, 
Gain42, Gain43, Gain44, Gain45, Gain46, Gain47 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gain4  8,  Gain4  9, GainS 0, GainS 1, GainS 2, GainS 3, GainS 4, GainS S, GainS 6, GainS 7, 
GainS8, GainS9, Gain60, Gain61, Gain62, Gain63 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

PhaseIncO, Phaselncl, Phaselnc2, Phaselnc3, Phaselnc4, PhaseIncS, PhaseIncG, 
Phaselnc7 , 

Phaselnc8, Phaselnc9, PhaselnclO, Phaseincll, Phaselncl2, Phaselncl3, Phasein 
cl4 , PhaselnclS  :  bit_vector  (S  downto  1) :="00000"; 

Signal 

PhaselnclS, Phaselncl7, Phaselncl8, Phaselncl9, Phaselnc20, Phaselnc21, 
Phaselnc22, Phaselnc23, 

Phaselnc24, PhaseInc2S, Phaselnc26, Phaselnc27, Phaselnc28, Phaselnc29, Phase 

Inc30, Phaselnc31  :  bit_vector  (S  downto  1 ): ="00000" ; 

signal 

Phaselnc32, Phaselnc33, Phaselnc34, PhaseInc3S, Phaselnc36, Phaselnc37, Phase 
Inc38, Phaselnc39, 

Phaselnc40, Phaselnc41, Phaselnc42, Phaselnc43, Phaselnc44, PhaseInc4S, Phase 

Inc46, Phaselnc47  :  bit  vector  (S  downto  1) :="00000"; 

signal 

Phaselnc48, Phaselnc49, PhaseIncSO, PhaseIncSl, PhaseIncS2, PhaseIncS3, Phase 
IncS4, PhaseIncSS, 

PhaseIncSS, PhaseIncS7, PhaseIncS8, PhaseIncS9, PhaseIncSO, PhaseIncSl, Phase 

IncS2 , PhaseIncSS  :  bit  vector  (S  downto  1) :="00000"; 

signal 

URBO, URBl, URB2, URB3, URB4, URBS, URBS, URB7, URB8, URB9, URBIO, URBll, URB12, URB 

13, URB14, URBIS :  bit  : = ' 0 ' ; 

signal 

URBIS, URB17, URB18, URB19, URB20, URB21, URB22, URB23, URB24, URB2S, URB2S, URB27 
,URB28,URB29, URBS 0, URBS 1:  bit  : = ' 0 ' ; 
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signal 

URB32,  URB33,  URB34,  URB35,  URB36, URB37, URB38, URB39, URB40, URB41, URB42, URB43 

,URB44,URB45,URB46,URB47:  bit  : = ' 0 ' ; 

signal 

URB48,  URB49,  URB50,  URB51,  URB52, URB53, URB54, URB55, URB56, URB57, URB58, URB59 
,URB60,URB61,URB62,URB63:  bit  : = ' 0 ' ; 

signal  PhaseSamp:  bit  vector  (5  downto  1) :=  "00000"; 
signal  UNP,  PSVin,  ODVin:  bit  : = ' 0 ' ; 

signal  LD,  RESET,  PRB,  PRBl,  PRB2,  PRB3,  PRB4,  PRB5,  PRB6,  PRB7,  PRB8, 
PRB9,  PRBIO,  PRBll,  PRB12,  PRB13,  PRB14,  PRB15, 

PRBlnot, PRB2not, PRB3not, PRB4not, PRBSnot, PRBOnot, PRB7not, PRB8not, PRB9not 
, PRBlOnot, PRBllnot, PRB12not, PRB13not, PRB14not, PRBlSnot:  bit; 

Begin  --  BINO  is  the  primary  output 


--Input : 

formats , 

cycle 

begins 

when  PRB=1,  1 

format 

per 

clock 

--  ten  bits  of  each  bin 

:  10  1 

9-5 

14-1  1 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin3  1 

bin2 

1  binl 

1  binO 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

CO 

1 

ro 

1 

1 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin7  1 

bin6 

1  bin5 

1  bin4 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  binl 1 1 

binlO 1  bin9 

1  bin8 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

!  7-3 

1  2 

1  1 

1  0 

--unused 

1  binl5 1 

binl4 1  binl3 

1  binl2 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  sample 

I PSVin 

1  UNP 

1  PRB 

--  more  bins  in  same  pattern  up  to  63... 

--  The  first  sample  can  be  entered  on  clock  65  if  PSVin  and  UNP  are 
taken  high 
LD<= ' 1 ' ; 

RESET<=' 0 ' ; 

PRB<= Input (0) ; 

UNP<=Input (1) ; 

PSVin<=Input (2)  ; 

PhaseSamp<=Input ( 7  downto  3); 

--  Bins  0,4,8,12,16,20,24,28,32,36,40,44,48,52,56,60  data 
URB0<=Input (17) ; 

Phaselnc0<=lnput ( 1 6  downto  12); 

Gain0<=lnput ( 1 1  downto  8); 

URB4<=Input  (17)  ; 

Phaselnc4<=lnput ( 1 6  downto  12); 

Gain4<=Input  ( 1 1  downto  8); 

URB8<=Input (17) ; 

Phaselnc8<=lnput ( 1 6  downto  12); 

Gain8<=Input ( 1 1  downto  8); 

URB12<=Input (17)  ; 

Phaselncl2<=lnput ( 1 6  downto  12); 

Gainl2<=Input ( 1 1  downto  8); 

URB16<=Input (17); 

Phaselncl 6<=Input ( 1 6  downto  12); 

Gainl 6<=Input ( 1 1  downto  8); 

URB2  0<=Input (17)  ; 

Phaselnc20<=lnput (16  downto  12); 

Gain2 0<=lnput ( 1 1  downto  8); 

URB2  4<=Input  (17)  ; 

Phaselnc24<=lnput (16  downto  12); 
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Gain24<=Input (11  downto  8); 

URB28<=lnput (17); 

Phaselnc2 8<=lnput ( 1 6  downto  12); 

Gain2 8<=lnput ( 1 1  downto  8); 

URB32<=lnput (17)  ; 

Phaselnc32<=lnput ( 1 6  downto  12); 

Gain32<=lnput ( 1 1  downto  8); 

URB36<=lnput (17)  ; 

Phaselnc36<=lnput (16  downto  12); 

Gain36<=lnput (11  downto  8); 

URB4  0<=lnput (17)  ; 

Phaselnc40<=lnput (16  downto  12); 

Gain40<=lnput (11  downto  8); 

URB4  4<=lnput (17)  ; 

Phaselnc44<=lnput (16  downto  12); 

Gain44<=lnput (11  downto  8); 

URB48<=lnput (17); 

Phaselnc4 8<=lnput ( 1 6  downto  12); 

Gain4 8<=lnput ( 1 1  downto  8); 

URB52<=lnput ( 17 ) ; 

Phaselnc52<=lnput ( 1 6  downto  12); 

Gain52<=lnput ( 1 1  downto  8); 

URB56<=lnput ( 17  )  ; 

Phaselnc56<=lnput (16  downto  12); 

Gain56<=lnput (11  downto  8); 

URB60<=lnput (17)  ; 

Phaselnc60<=lnput ( 1 6  downto  12); 

Gain60<=lnput ( 1 1  downto  8); 

--  Bins  1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61 
URBl<=lnput (27) ; 

Phaselncl<=lnput (26  downto  22); 

Gainl<=lnput (21  downto  18); 

URB5<=lnput  (27)  ; 

Phaselnc5<=lnput (26  downto  22); 

Gain5<=lnput  (21  downto  18); 

URB9<=lnput (27) ; 

Phaselnc9<=lnput (26  downto  22); 

Gain9<=lnput (21  downto  18); 

URB13<=lnput  (21)  ; 

Phaselncl3<=lnput (26  downto  22); 

Gainl3<=lnput (21  downto  18); 

URB17<=lnput (27) ; 

Phaselncl7<=lnput (26  downto  22); 

Gainl7<=lnput (21  downto  18); 

URB21<=lnput  (21)  ; 

Phaselnc21<=lnput (26  downto  22); 

Gain21<=lnput (21  downto  18); 

URB25<=lnput (27) ; 

Phaselnc25<=lnput (26  downto  22); 

Gain25<=lnput (21  downto  18); 

URB2  9<=lnput  (21)  ; 

Phaselnc29<=lnput (26  downto  22); 

Gain29<=lnput (21  downto  18); 

URB33<=lnput (27) ; 

Phaselnc33<=lnput (26  downto  22); 

Gain33<=lnput (21  downto  18); 

URB37<=lnput  (27)  ; 


data 
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Phaselnc37<=lnput (26  downto  22); 

Gain37<=Input (21  downto  18); 

URB41<=lnput  {21)  ; 

Phaselnc41<=lnput (26  downto  22); 

Gain41<=lnput  (21  downto  18); 

URB45<=lnput (27) ; 

Phaselnc45<=lnput (26  downto  22); 

Gain45<=lnput (21  downto  18); 

URB4  9<=lnput (21)  ; 

Phaselnc49<=lnput (26  downto  22); 

Gain49<=lnput (21  downto  18); 

URB53<=lnput (27)  ; 

Phaselnc53<=lnput (26  downto  22); 

Gain53<=lnput (21  downto  18); 

URB57<=lnput (27)  ; 

Phaselnc57<=lnput (26  downto  22); 

Gain57<=lnput (21  downto  18); 

URB61<=lnput (27)  ; 

Phaselnc61<=lnput (26  downto  22); 

Gain61<=lnput (21  downto  18); 

--  Bins  2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62  data 
URB2<= Input (37) ; 

Phaselnc2<=lnput (36  downto  32); 

Gain2<=lnput (31  downto  28); 

URB6<= Input  (37)  ; 

Phaselnc6<=lnput  (36  downto  32); 

Gain6<=lnput (31  downto  28); 

URB10<=lnput (37) ; 

PhaselnclO<=lnput (36  downto  32); 

GainlO<=lnput (31  downto  28); 

URB14<=lnput (37)  ; 

Phaselncl4<=lnput (36  downto  32); 

Gainl4<=lnput (31  downto  28); 

URB18<=lnput (31)  ; 

Phaselncl8<=lnput (36  downto  32); 

Gainl8<=lnput (31  downto  28); 

URB22<=lnput (31)  ; 

Phaselnc22<=lnput (36  downto  32); 

Gain22<=lnput (31  downto  28); 

URB2  6<=lnput (31) ; 

Phaselnc26<=lnput (36  downto  32); 

Gain26<=lnput (31  downto  28); 

URB30<=lnput (37)  ; 

Phaselnc30<=lnput (36  downto  32); 

Gain30<=lnput (31  downto  28); 

URB34<=lnput (31)  ; 

Phaselnc34<=lnput (36  downto  32); 

Gain34<=lnput (31  downto  28); 

URB38<=lnput (37)  ; 

Phaselnc38<=lnput (36  downto  32); 

Gain38<=lnput (31  downto  28); 

URB42<=lnput  (31)  ; 

Phaselnc42<=lnput (36  downto  32); 

Gain42<=lnput  (31  downto  28); 

URB46<=lnput (31) ; 

Phaselnc46<=lnput (36  downto  32); 

Gain46<=lnput (31  downto  28); 
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URB50<=Input  (37)  ; 

Phaselnc50<=lnput (36  downto  32); 

Gain50<=Input (31  downto  28); 

URB54<=Input (37) ; 

Phaselnc54<=lnput (36  downto  32); 

Gain54<=Input (31  downto  28); 

URB58<=lnput (37)  ; 

Phaselnc58<=lnput (36  downto  32); 

Gain58<=lnput (31  downto  28); 

URB62<=lnput (37)  ; 

Phaselnc62<=lnput (36  downto  32); 

Gain62<=lnput (31  downto  28); 

--  Bins  3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63  data 
URB3<=lnput (47)  ; 

Phaselnc3<=lnput ( 4 6  downto  42); 

Gain3<=lnput ( 4 1  downto  38); 

URB7<=lnput  (47)  ; 

Phaselnc7<=lnput ( 4 6  downto  42); 

Gain7<=lnput  (41  downto  38); 

URBll<=lnput (47); 

Phaselncl l<=lnput ( 4 6  downto  42); 

Gainl l<=lnput ( 4 1  downto  38); 

URB15<=lnput (47)  ; 

Phaselncl5<=lnput (46  downto  42); 

Gainl5<=lnput (41  downto  38); 

URB19<=lnput (47); 

Phaselncl 9<=lnput ( 4 6  downto  42); 

Gainl 9<=lnput ( 4 1  downto  38); 

URB2  3<=lnput (47)  ; 

Phaselnc23<=lnput (46  downto  42); 

Gain23<=lnput (41  downto  38); 

URB2  7<=lnput (47)  ; 

Phaselnc27<=lnput (46  downto  42); 

Gain27<=lnput (41  downto  38); 

URB31<=lnput (47)  ; 

Phaselnc31<=lnput (46  downto  42); 

Gain31<=lnput (41  downto  38); 

URB35<=lnput (47)  ; 

Phaselnc35<=lnput ( 4 6  downto  42); 

Gain35<=lnput ( 4 1  downto  38); 

URB3  9<=lnput (47)  ; 

Phaselnc39<=lnput (46  downto  42); 

Gain39<=lnput (41  downto  38); 

URB4  3<=lnput (47)  ; 

Phaselnc43<=lnput (46  downto  42); 

Gain43<=lnput (41  downto  38); 

URB4  7<=lnput (47)  ; 

Phaselnc47<=lnput (46  downto  42); 

Gain47<=lnput (41  downto  38); 

URB51<= Input (47)  ; 

Phaselnc51<=lnput (46  downto  42); 

Gain51<=lnput (41  downto  38); 

URB55<=lnput (47)  ; 

Phaselnc55<=lnput ( 4 6  downto  42); 

Gain55<=lnput ( 4 1  downto  38); 

URB59<=lnput (47)  ; 

Phaselnc59<=lnput (46  downto  42); 


71 


Gains 9<=Input ( 4 1  downto  38); 
URB63<=Input  (47)  ; 
Phaselnc63<=lnput ( 4 6  downto  42); 
Gain63<=Input  ( 4 1  downto  38); 


DFFO 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB,  PRBl, 

PRBlnot) ; 

DFFI 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl,  PRB2, 

PRB2not)  ; 

DFF2 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB2,  PRB3, 

PRB3not)  ; 

DFF3 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB3,  PRB4, 

PRB4not)  ; 

DFF4 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB4,  PRBS, 

PRBSnot)  ; 

DFFS 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBS,  PRBS, 

PRBSnot)  ; 

DFF6 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBS,  PRB7, 

PRB7not)  ; 

DFF7 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB7,  PRB8, 

PRBSnot)  ; 

DFFS 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBS,  PRB9, 

PRB9not)  ; 

DFF9 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB9,  PRBIO 

,  PRBlOnot); 

DFFIO 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBIO, 

PRBll, 

PRBllnot) ; 

DFFll 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBll, 

PRB12, 

PRB12not) ; 

DFF12 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB12, 

PRBl 3, 

PRB13not) ; 

DFF13 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 3, 

PRBl 4, 

PRB14not) ; 

DFF14 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 4, 

PRBIS, 

PRBl Snot) ; 

BINO:  OneBin  port  map  (DRFMl,  PhaseIncO,  GainO,  URBO,  UNP,  PRB, 
ODVoutl,  PSVoutl,  Ql,  II,  Q,  I,  ODVoutO,  PSVoutO,  DRFMO,  CLK) ; 

BINl:  OneBin  port  map  (DRFM2,  Phaselncl,  Gainl,  URBl,  UNP,  PRB, 
ODVout2,  PSVout2,  Q2,  12,  Ql,  II,  ODVoutl,  PSVoutl,  DRFMl,  CLK) ; 

BIN2:  OneBin  port  map  (DRFM3,  Phaselnc2,  Gain2,  URB2,  UNP,  PRB, 
ODVout3,  PSVout3,  Q3,  13,  Q2,  12,  ODVout2,  PSVout2,  DRFM2 ,  CLK) ; 

BIN3:  OneBin  port  map  (DRFM4,  Phaselnc3,  Gain3,  URB3,  UNP,  PRB, 
ODVout4,  PSVout4,  Q4,  14,  Q3,  13,  ODVout3,  PSVout3,  DRFM3,  CLK) ; 

BIN4:  OneBin  port  map  (DRFM5,  Phaselnc4,  Gain4,  URB4,  UNP,  PRBl, 
ODVoutS,  PSVoutS,  Q5,  IS,  Q4,  14,  ODVout4,  PSVout4,  DRFM4 ,  CLK) ; 

BINS:  OneBin  port  map  (DRFM6,  PhaseIncS,  GainS,  URBS,  UNP,  PRBl, 
ODVoute,  PSVoutS,  Q6,  16,  QS,  IS,  ODVoutS,  PSVoutS,  DRFMS,  CLK) ; 

BIN6:  OneBin  port  map  (DRFM7,  PhaseIncS,  GainS,  URBS,  UNP,  PRBl, 
ODVout7,  PSVout7,  Q7,  17,  QS,  IS,  ODVoutS,  PSVoutS,  DRFMS,  CLK) ; 

BIN7:  OneBin  port  map  (DRFM8,  Phaselnc7,  Gain7,  URB7,  UNP,  PRBl, 
ODVout8,  PSVout8,  Q8,  18,  Q7,  17,  ODVout7,  PSVout7,  DRFM7 ,  CLK) ; 

BIN8:  OneBin  port  map  (DRFM9,  Phaselnc8,  Gain8,  URB8,  UNP,  PRB2, 
ODVout9,  PSVout9,  Q9,  19,  Q8,  18,  ODVout8,  PSVout8,  DRFM8,  CLK) ; 

BIN9:  OneBin  port  map  (DRFMIO,  Phaselnc9,  Gain9,  URB9,  UNP,  PRB2, 
ODVoutlO,  PSVoutlO,  QIO,  110,  Q9,  19,  ODVout9,  PSVout9,  DRFM9,  CLK) ; 
BINIO:  OneBin  port  map  (DRFMll,  PhaselnclO,  GainlO,  URBIO,  UNP,  PRB2, 
ODVoutll,  PSVoutll,  Qll,  Ill,  QIO,  110,  ODVoutlO,  PSVoutlO,  DRFMIO, 

CLK)  ; 

BINll:  OneBin  port  map  (DRFM12,  Phaseincll,  Gainll,  URBll,  UNP,  PRB2, 
ODVoutl2,  PSVoutl2,  Q12,  112,  Qll,  Ill,  ODVoutll,  PSVoutll,  DRFMll, 

CLK)  ; 

BIN12:  OneBin  port  map  (DRFM13,  Phaselncl2,  Gainl2,  URB12,  UNP,  PRB3, 
ODVoutl3,  PSVoutl3,  Q13,  113,  Q12,  112,  ODVoutl2,  PSVoutl2,  DRFM12, 

CLK)  ; 

BIN13:  OneBin  port  map  (DRFM14,  Phaselncl3,  Gainl3,  URB13,  UNP,  PRB3, 
ODVoutl4,  PSVoutl4,  Q14,  114,  Q13,  113,  ODVoutl3,  PSVoutl3,  DRFM13, 

CLK)  ; 

BIN14:  OneBin  port  map  (DRFMIS,  Phaselncl4,  Gainl4,  URB14,  UNP,  PRB3, 
ODVoutlS,  PSVoutlS,  QIS,  IIS,  Q14,  II4,  ODVoutl4,  PSVoutl4,  DRFM14, 

CLK)  ; 
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BIN15:  OneBin  port  map  (DRFM16,  PhaselnclS,  GainlS,  URB15, 
ODVoutie,  PSVoutie,  Q16,  116,  Q15,  115,  0DVoutl5,  PSVoutl5 
CLK)  ; 

B1N16:  OneBin  port  map  (DRFM17,  PhaselnclG,  Gainl6,  URB16, 
0DVoutl7,  PSVoutl7,  Q17,  117,  Q16,  116,  0DVoutl6,  PSVoutl6 
CLK)  ; 

B1N17:  OneBin  port  map  (DRFM18,  Phaselncl7,  Gainl7,  URB17, 
ODVoutlS,  PSVoutlS,  Q18,  118,  Q17,  117,  0DVoutl7,  PSVoutl7 
CLK)  ; 

B1N18:  OneBin  port  map  (DRFM19,  Phaselncl8,  Gainl8,  URB18, 
0DVoutl9,  PSVoutl9,  Q19,  119,  Q18,  118,  0DVoutl8,  PSVoutl8 
CLK)  ; 

B1N19:  OneBin  port  map  (DRFM20,  Phaselncl9,  Gainl9,  URB19, 
ODVout20,  PSVout20,  Q20,  120,  Q19,  119,  ODVoutl9,  PSVoutl9 
CLK)  ; 

B1N20:  OneBin  port  map  (DRFM21,  Phaselnc20,  Gain20,  URB20, 
ODVout21,  PSVout21,  Q21,  121,  Q20,  120,  ODVout20,  PSVout20 
CLK)  ; 

B1N21:  OneBin  port  map  (DRFM22,  Phaselnc21,  Gain21,  URB21, 
ODVout22,  PSVout22,  Q22,  122,  Q21,  121,  ODVout21,  PSVout21 
CLK)  ; 

B1N22:  OneBin  port  map  (DRFM23,  Phaselnc22,  Gain22,  URB22, 
ODVout23,  PSVout23,  Q23,  123,  Q22,  122,  ODVout22,  PSVout22 
CLK)  ; 

B1N23:  OneBin  port  map  (DRFM24,  Phaselnc23,  Gain23,  URB23, 
ODVout24,  PSVout24,  Q24,  124,  Q23,  123,  ODVout23,  PSVout23 
CLK)  ; 

B1N24:  OneBin  port  map  (DRFM25,  Phaselnc24,  Gain24,  URB24, 
ODVout25,  PSVout25,  Q25,  125,  Q24,  124,  ODVout24,  PSVout24 
CLK)  ; 

B1N25:  OneBin  port  map  (DRFM26,  Phaselnc25,  Gain25,  URB25, 
ODVout26,  PSVout26,  Q26,  126,  Q25,  125,  ODVout25,  PSVout25 
CLK)  ; 

B1N26:  OneBin  port  map  (DRFM27,  Phaselnc26,  Gain26,  URB26, 
ODVout27,  PSVout27,  Q27,  127,  Q26,  126,  ODVout26,  PSVout26 
CLK)  ; 

B1N27:  OneBin  port  map  (DRFM28,  Phaselnc27,  Gain27,  URB27, 
ODVout28,  PSVout28,  Q28,  128,  Q27,  127,  ODVout27,  PSVout27 
CLK)  ; 

B1N28:  OneBin  port  map  (DRFM29,  Phaselnc28,  Gain28,  URB28, 
ODVout29,  PSVout29,  Q29,  129,  Q28,  128,  ODVout28,  PSVout28 
CLK)  ; 

B1N29:  OneBin  port  map  (DRFM30,  Phaselnc29,  Gain29,  URB29, 
ODVout30,  PSVout30,  Q30,  130,  Q29,  129,  ODVout29,  PSVout29 
CLK)  ; 

B1N30:  OneBin  port  map  (DRFM31,  Phaselnc30,  Gain30,  URB30, 
ODVout31,  PSVout31,  Q31,  131,  Q30,  130,  ODVout30,  PSVout30 
CLK)  ; 

B1N31:  OneBin  port  map  (DRFM32,  Phaselnc31,  Gain31,  URB31, 
ODVout32,  PSVout32,  Q32,  132,  Q31,  131,  ODVout31,  PSVout31 
CLK)  ; 

B1N32 :  OneBin  port  map  (DRFM33,  Phaselnc32,  Gain32,  URB32, 
ODVout33,  PSVout33,  Q33,  133,  Q32,  132,  ODVout32,  PSVout32 
CLK)  ; 

B1N33:  OneBin  port  map  (DRFM34,  Phaselnc33,  Gain33,  URB33, 
ODVout34,  PSVout34,  Q34,  134,  Q33,  133,  ODVout33,  PSVout33 
CLK)  ; 


UNP,  PRB3 
DRFM15, 

UNP,  PRB4 
DRFM16, 

UNP,  PRB4 
DRFM17, 

UNP,  PRB4 
DRFM18, 

UNP,  PRB4 
DRFM19, 

UNP,  PRB5 
DRFM2  0 , 

UNP,  PRB5 
DRFM2 1 , 

UNP,  PRB5 
DRFM22, 

UNP,  PRB5 
DRFM23, 

UNP,  PRB6 
DRFM24, 

UNP,  PRB6 
DRFM25, 

UNP,  PRB6 
DRFM26, 

UNP,  PRB6 
DRFM27, 

UNP,  PRB7 
DRFM2  8 , 

UNP,  PRB7 
DRFM2  9 , 

UNP,  PRB7 
DRFM30, 

UNP,  PRB7 
DRFM31, 

UNP,  PRB8 
DRFM32, 

UNP,  PRB8 
DRFM33, 
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BIN34:  OneBin  port  map  (DRFM35,  Phaselnc34,  Gain34,  URB34, 
ODVout35,  PSVout35,  Q35,  135,  Q34,  134,  ODVout34,  PSVout34 
CLK)  ; 

BIN35:  OneBin  port  map  (DRFM36,  Phaselnc35,  Gain35,  URB35, 
ODVout36,  PSVout36,  Q36,  136,  Q35,  135,  ODVout35,  PSVout35 
CLK)  ; 

BIN36:  OneBin  port  map  (DRFM37,  Phaselnc36,  Gain36,  URB36, 
ODVout37,  PSVout37,  Q37,  137,  Q36,  136,  ODVout36,  PSVout36 
CLK)  ; 

BIN37 :  OneBin  port  map  (DRFM38,  Phaselnc37,  Gain37,  URB37, 
ODVout38,  PSVout38,  Q38,  138,  Q37,  137,  ODVout37,  PSVout37 
CLK)  ; 

BIN38:  OneBin  port  map  (DRFM39,  Phaselnc38,  Gain38,  URB38, 
ODVout39,  PSVout39,  Q39,  139,  Q38,  138,  ODVout38,  PSVout38 
CLK)  ; 

BIN39:  OneBin  port  map  (DRFM40,  Phaselnc39,  Gain39,  URB39, 
ODVout40,  PSVout40,  Q40,  140,  Q39,  139,  ODVout39,  PSVout39 
CLK)  ; 

BIN40:  OneBin  port  map  (DRFM41,  Phaselnc40,  Gain40,  URB40, 
ODVout41,  PSVout41,  Q41,  141,  Q40,  140,  ODVout40,  PSVout40 
CLK)  ; 

BIN41:  OneBin  port  map  (DRFM42,  Phaselnc41,  Gain41,  URB41, 
ODVout42,  PSVout42,  Q42,  142,  Q41,  141,  ODVout41,  PSVout41 
CLK)  ; 

B1N42:  OneBin  port  map  (DRFM43,  Phaselnc42,  Gain42,  URB42, 
ODVout43,  PSVout43,  Q43,  143,  Q42,  142,  ODVout42,  PSVout42 
CLK)  ; 

B1N43:  OneBin  port  map  (DRFM44,  Phaselnc43,  Gain43,  URB43, 
ODVout44,  PSVout44,  Q44,  144,  Q43,  143,  ODVout43,  PSVout43 
CLK)  ; 

B1N44:  OneBin  port  map  (DRFM45,  Phaselnc44,  Gain44,  URB44, 
ODVout45,  PSVout45,  Q45,  145,  Q44,  144,  ODVout44,  PSVout44 
CLK)  ; 

B1N45:  OneBin  port  map  (DRFM46,  Phaselnc45,  Gain45,  URB45, 
ODVout46,  PSVout46,  Q46,  146,  Q45,  145,  ODVout45,  PSVout45 
CLK)  ; 

B1N46:  OneBin  port  map  (DRFM47,  Phaselnc46,  Gain46,  URB46, 
ODVout47,  PSVout47,  Q47,  147,  Q46,  146,  ODVout46,  PSVout46 
CLK)  ; 

B1N47:  OneBin  port  map  (DRFM48,  Phaselnc47,  Gain47,  URB47, 
ODVout48,  PSVout48,  Q48,  148,  Q47,  147,  ODVout47,  PSVout47 
CLK)  ; 

B1N48:  OneBin  port  map  (DRFM49,  Phaselnc48,  Gain48,  URB48, 
ODVout49,  PSVout49,  Q49,  149,  Q48,  148,  ODVout48,  PSVout48 
CLK)  ; 

B1N49:  OneBin  port  map  (DRFM50,  Phaselnc49,  Gain49,  URB49, 
ODVout50,  PSVout50,  Q50,  150,  Q49,  149,  ODVout49,  PSVout49 
CLK)  ; 

B1N50:  OneBin  port  map  (DRFM51,  Phaselnc50,  Gain50,  URB50, 
ODVout51,  PSVout51,  Q51,  151,  Q50,  150,  ODVout50,  PSVout50 
CLK)  ; 

B1N51:  OneBin  port  map  (DRFM52,  Phaselnc51,  Gain51,  URB51, 
ODVout52,  PSVout52,  Q52,  152,  Q51,  151,  ODVout51,  PSVout51 
CLK)  ; 

B1N52 :  OneBin  port  map  (DRFM53,  Phaselnc52,  Gain52,  URB52, 
ODVout53,  PSVout53,  Q53,  153,  Q52,  152,  ODVout52,  PSVout52 
CLK)  ; 


UNP,  PRB8, 
DRFM34, 

UNP,  PRB8, 
DRFM35, 

UNP,  PRB9, 
DRFM36, 

UNP,  PRB9, 
DRFM37, 

UNP,  PRB9, 
DRFM38, 

UNP,  PRB9, 
DRFM39, 

UNP,  PRBIO 
DRFM40, 

UNP,  PRBIO 
DRFM41, 

UNP,  PRBIO 
DRFM42, 

UNP,  PRBIO 
DRFM43, 

UNP,  PRBll 
DRFM44, 

UNP,  PRBll 
DRFM45, 

UNP,  PRBll 
DRFM46, 

UNP,  PRBll 
DRFM47, 

UNP,  PRB12 
DRFM48, 

UNP,  PRB12 
DRFM49, 

UNP,  PRB12 
DRFM50, 

UNP,  PRB12 
DRFM51, 

UNP,  PRB13 
DRFM52, 
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BIN53:  OneBin  port  map  (DRFM54,  Phaselnc53,  Gain53,  URB53,  UNP,  PRB13 
ODVout54,  PSVout54,  Q54,  154,  Q53,  153,  ODVout53,  PSVout53,  DRFM53, 
CLK)  ; 

BIN54:  OneBin  port  map  (DRFM55,  Phaselnc54,  Gain54,  URB54,  UNP,  PRB13 
ODVout55,  PSVout55,  Q55,  155,  Q54,  154,  ODVout54,  PSVout54,  DRFM54, 
CLK)  ; 

BIN55:  OneBin  port  map  (DRFM56,  Phaselnc55,  Gain55,  URB55,  UNP,  PRB13 
ODVout56,  PSVout56,  Q56,  156,  Q55,  155,  ODVout55,  PSVout55,  DRFM55, 
CLK)  ; 

BIN56:  OneBin  port  map  (DRFM57,  Phaselnc56,  Gain56,  URB56,  UNP,  PRB14 
ODVout57,  PSVout57,  Q57,  157,  Q56,  156,  ODVout56,  PSVout56,  DRFM56, 
CLK)  ; 

BIN57 :  OneBin  port  map  (DRFM58,  Phaselnc57,  Gain57,  URB57,  UNP,  PRB14 
ODVout58,  PSVout58,  Q58,  158,  Q57,  157,  ODVout57,  PSVout57,  DRFM57, 
CLK)  ; 

BIN58:  OneBin  port  map  (DRFM59,  Phaselnc58,  Gain58,  URB58,  UNP,  PRB14 
ODVout59,  PSVout59,  Q59,  159,  Q58,  158,  ODVout58,  PSVout58,  DRFM58, 
CLK)  ; 

BIN59:  OneBin  port  map  (DRFM60,  Phaselnc59,  Gain59,  URB59,  UNP,  PRB14 
ODVout60,  PSVout60,  Q60,  160,  Q59,  159,  ODVout59,  PSVout59,  DRFM59, 
CLK)  ; 

BIN60:  OneBin  port  map  (DRFM61,  Phaselnc60,  Gain60,  URB60,  UNP,  PRB15 
ODVout61,  PSVout61,  Q61,  161,  Q60,  160,  ODVout60,  PSVout60,  DRFM60, 
CLK)  ; 

BIN61:  OneBin  port  map  (DRFM62,  Phaselnc61,  Gain61,  URB61,  UNP,  PRB15 
ODVout62,  PSVout62,  Q62,  162,  Q61,  161,  ODVout61,  PSVout61,  DRFM61, 
CLK)  ; 

B1N62:  OneBin  port  map  (DRFM63,  Phaselnc62,  Gain62,  URB62,  UNP,  PRB15 
ODVout63,  PSVout63,  Q63,  163,  Q62,  162,  ODVout62,  PSVout62,  DRFM62, 
CLK)  ; 

B1N63:  OneBin  port  map  (PhaseSamp,  Phaselnc63,  Gain63,  URB63,  UNP, 
PRB15,  ODVin,  PSVin,  "00000000000000000",  "00000000000000000",  Q63, 
163, ODVout63,  PSVout63,  DRFM63,  CLK) ; 

--  Output  Format: 

--  63-41  I  40  I  39  I  38-22  |  21-5  |  4-0 

--unused  |  PSVout  |  ODVout  I  Q  I  1  I  DRFM 

Output (40) <=PSVout0; 

Output (39) <=ODVoutO; 

Output (38  downto  22)<=Q; 

Output (21  downto  5)<=1; 

Output (4  downto  0)<=DRFM0; 

Output  (63  downto  41) <="00000000000000000000000"; 
end  SixtyFourBin; 

E.  128  BIN  MACRO  VHDL 

entity  One28Bin  is 

port  (Input:  in  bit_vector  (63  downto  0); 

Output : out  bit_vector  (63  downto  0);  CLK:  in  bit); 
end  One28Bin; 

architecture  One28Bin  of  One28Bin  is 


component  OneBin  is 
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port  (PhaseSamp,  Phaseinc:  in  bit_vector  (5  downto  1); 

Gain:  in  bit_vector  (4  downto  1); 

URB,  UNP,  PRB,  ODVin,  PSVin:  in  bit; 

OtherBinDataSIN, OtherBinDataCOS : in  bit  vector  (17  downto  1); 
Q,  I:  out  bit_vector  (17  downto  1); 

ODVout,  PSVout:  out  bit; 

DRFM:  out  bit_vector  (5  downto  1); 

CLK:  in  bit) ; 

end  component; 

component  DFlipFlop 

port  (CLK,  LD,  RESET,  D:  in  bit; 

Q:  inout  bit;  Qnot:  out  bit); 
end  component; 


signal  Q,  I,  Ql,  II,  Q2, 12,  Q3,  13,  Q4,  14,  Q5,  15,  Q6,  16,  Q7,  17,  Q8,  18,  Q9,  19, 

QIO, 110, Qll, Ill, Q12, 112, Q13, 113, Q14, 114, Q15, 115 :  bit  vector  (17  downto 
1) :="00000000000000000"; 
signal  Q16,  116, 

Q17,I17,Q18,I18,Q19,I19,Q20,I20,Q21,I21,Q22,I22,Q23,I23,Q24,I24,Q25,I25 

f 

Q26, 126, Q27, 127, Q28, 128, Q29, 129, Q30, 130, Q31, 131 :  bit_vector  (17  downto 
1) :="00000000000000000"; 
signal  Q32,  132, 

Q33,I33,Q34,I34,Q35,I35,Q36,I36,Q37,I37,Q38,I38,Q39,I39,Q4 0,140,041,141 

f 

Q42, 142, Q43, 143, Q44, 144, Q45, 145, Q46, 146, Q47, 147 :  bit  vector  (17  downto 
1) :="00000000000000000"; 
signal  Q48,  148, 

Q4  9,  149,050,  150,051, 151,052, 152,053, 153,054, 154,055, 155,056, 156,057, 157 

f 

058,158,059,159,060,160,061,161,062,162,063,163:  bit_vector  (17  downto 
1) :="00000000000000000"; 
signal  064,  164, 

065, 165,066, 166,067, 167,068,168,069,169,070,170,071,171,072,172,073,173 

f 

074,174,075,175,076,176,077,177,078,178,079,179:  bit_vector  (17  downto 
1) :="00000000000000000"; 
signal  080,  180, 

081,181,082,182,083,183,084,184,085,185,086,186,087,187,088,188,089,189 

f 

090,190,091,191,092,192,093,193,094,194,095,195:  bit_vector  (17  downto 
1) :="00000000000000000"; 
signal  096,  196, 

097,197,098,198,099,199,0100,1100,0101,1101,0102,1102,0103,1103,0104,11 
04,0105, 1105, 

0106,1106,0107,1107,0108,1108,0109,1109,0110,1110,0111,1111:  bit_vector 
(17  downto  1) :="00000000000000000"; 
signal  0112,  1112, 

0113,1113,0114,1114,0115,1115,0116,1116,0117,1117,0118,1118,0119,1119,0 

120, 1120,0121, 1121, 

0122,1122,0123,1123,0124,1124,0125,1125,0126,1126,0127,1127:  bit_vector 
(17  downto  1) :="00000000000000000"; 

signal  DRFMO ,  DRFMl ,  DRFM2  ,  DRFM3 , DRFM4 , DRFM5 , DRFM6 , DRFM7 , DRFM8 , DRFM9 , 
DRFMIO, DRFMll, DRFM12, DRFM13, DRFM14, DRFM15 :  bit_vector  (5  downto 
1) :="00000"; 
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signal 

DRFMl 6 , DRFMl 7 , DRFMl 8 , DRFMl 9 , DRFM2  0 , DRFM2 1 , DRFM2  2 , DRFM2  3 , DRFM2  4 , DRFM2  5 , 
DRFM26, DRFM27, DRFM28, DRFM29, DRFM30, DRFM31 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFM3  2  ,  DRFM3  3 ,  DRFM3  4  ,  DRFM3  5 ,  DRFM3  6 ,  DRFM3  7  ,  DRFM3  8  ,  DRFM3  9 ,  DRFM4  0 ,  DRFM4 1 , 
DRFM42, DRFM43, DRFM44, DRFM45, DRFM46, DRFM47 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFM4  8  ,  DRFM4  9 ,  DRFM5  0 ,  DRFM5 1 ,  DRFM5  2  ,  DRFM5  3 ,  DRFM5  4  ,  DRFM5  5 ,  DRFM5  6 ,  DRFM5  7  , 
DRFM58, DRFM59, DRFM60, DRFM61, DRFM62, DRFM63 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFM64, DRFM65, DRFM66, DRFM67, DRFM68, DRFM69, DRFM70, DRFM71, DRFM72, DRFM73, 
DRFM74, DRFM75, DRFM76, DRFM77, DRFM78, DRFM79 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFM8  0 , DRFM8 1 , DRFM8  2 , DRFM8  3 , DRFM8  4 , DRFM8  5 , DRFM8  6 , DRFM8  7 , DRFM8  8 , DRFM8  9 , 
DRFM90, DRFM91, DRFM92, DRFM93, DRFM94, DRFM95 :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFM96, DRFM97, DRFM98, DRFM99, DRFMIOO, DRFMIOI, DRFM102, DRFM103, DRFM104, DRF 
M105, 

DRFMl 06, DRFMl 07, DRFMl 08, DRFMl 09, DRFMllO, DRFMlll :  bit_vector  (5  downto 
1) :="00000"; 
signal 

DRFMl  1 2  ,  DRFMl  1 3 ,  DRFMl  1 4  ,  DRFMl  1 5 ,  DRFMl  1 6 ,  DRFMl  1 7  ,  DRFMl  1 8  ,  DRFMl  1  9 ,  DRFMl  2  0 
, DRFM121, 

DRFM122, DRFM123, DRFM124, DRFM125, DRFM126, DRFM127 :  bit_vector  (5  downto 
1) :="00000"; 


signal  PSVoutO, PSVoutl, PSVout2, PSVout3, PSVout4, PSVoutS, PSVout6, 

PSVout7, PSVout8, PSVout9, PSVoutlO, PSVoutll, PSVoutl2, PSVoutl3, PSVoutl4, PS 
VoutlS:  bit:='0'; 

signal  PSVoutl6, PSVoutl7, PSVoutl8, PSVoutl9, PSVout20, PSVout21, PSVout22, 
PSVout23, PSVout24, PSVout25, PSVout26, PSVout27, PSVout28, PSVout29, PSVout30 
,PSVout31:  bit:='0'; 

signal  PSVout32, PSVout33, PSVout34, PSVout35, PSVout36, PSVout37, PSVout38, 
PSVout39, PSVout40, PSVout41, PSVout42, PSVout43, PSVout44, PSVout45, PSVout46 
,PSVout47:  bit:='0'; 

signal  PSVout48, PSVout49, PSVoutSO, PSVoutSl, PSVout52, PSVout53, PSVout54, 
PSVoutSS, PSVout56, PSVout57, PSVout58, PSVout59, PSVout60, PSVout61, PSVout62 
,PSVout63:  bit:='0'; 

signal  PSVout64, PSVout65, PSVout66, PSVout67, PSVout68, PSVout69, PSVout70, 
PSVout71, PSVout72, PSVout73, PSVout74, PSVout75, PSVout76, PSVout77, PSVout78 
,PSVout79:  bit:='0'; 

signal  PSVout80, PSVout81, PSVout82, PSVout83, PSVout84, PSVout85, PSVout86, 
PSVout87, PSVout88, PSVout89, PSVout90, PSVout91, PSVout92, PSVout93, PSVout94 
,PSVout95:  bit:='0'; 
signal 

PSVout96, PSVout97, PSVout98, PSVout99, PSVoutlOO, PSVoutlOl, PSVoutl02, 
PSVoutl03, PSVoutl04, PSVoutlOS, PSVoutlOe, PSVoutl07, PSVoutl08, PSVoutl09, P 
SVoutllO, PSVoutlll :  bit:='0'; 
signal 

PSVoutll2, PSVoutll3, PSVoutll4, PSVoutllS, PSVoutll6, PSVoutll7, PSVoutll8, 
PSVoutll9, PSVoutl20, PSVoutl21, PSVoutl22, PSVoutl23, PSVoutl24, PSVoutl25, P 
SVoutl26, PSVoutl27 :  bit:='0'; 
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signal  ODVoutO, ODVoutl, 0DVout2, ODVoutS, 0DVout4, ODVoutS, 0DVout6, 

ODVout7, ODVoutS, ODVout9, ODVoutlO, ODVoutll, ODVoutl2, ODVoutlS, ODVoutl4, OD 
VoutlS:  bit:='0'; 

signal  ODVoutl6, ODVoutl7, ODVoutlS, ODVoutl9, ODVout20, ODVout21, ODVout22, 
ODVout23, ODVout24, ODVout25, ODVout26, ODVout27, ODVout28, ODVout29, ODVoutSO 
,ODVout31:  bit:='0'; 

signal  ODVout32, ODVout33, ODVout34, ODVout35, ODVout36, ODVout37, ODVout38, 
ODVout39, ODVout40, ODVout41, ODVout42, ODVout43, ODVout44, ODVout45, ODVout46 
,ODVout47:  bit:='0'; 

signal  ODVout48, ODVout49, ODVoutSO, ODVoutSl, ODVout52, ODVout53, ODVout54, 
ODVoutSS, ODVoutSe, ODVout57, ODVout58, ODVout59, ODVouteO, ODVoutei, ODVout62 
,ODVout63:  bit:='0'; 

signal  ODVout64, ODVout65, ODVout66, ODVout67, ODVout68, ODVout69, ODVout70, 
ODVout71, ODVout72, ODVout73, ODVout74, ODVout75, ODVout76, ODVout77, ODVout78 
,ODVout79:  bit:='0'; 

signal  ODVout80, ODVout81, ODVout82, ODVout83, ODVout84, ODVout85, ODVout86, 
ODVout87, ODVout88, ODVout89, ODVout90, ODVout91, ODVout92, ODVout93, ODVout94 
,ODVout95:  bit:='0'; 
signal 

ODVout96, ODVout97, ODVout98, ODVout99, ODVoutlOO, ODVoutlOl, ODVoutl02, 
ODVout 103, ODVout 104, ODVout 105, ODVout 106, ODVout 107, ODVout 108, ODVout 109,0 
DVoutllO, ODVoutlll :  bit:='0'; 
signal 

ODVout 112, ODVout 113, ODVout 114, ODVout 115, ODVout 116, ODVout 117, ODVout 118, 
ODVout 119, ODVout 120, ODVout 121, ODVout 122, ODVout 123, ODVout 124, ODVout 125,0 
DVoutl26, ODVoutl27 :  bit:='0'; 

signal  GainO, Gainl, Gain2, Gain3, Gain4, Gain5, Gain6, Gain7, Gain8, Gain9, 
GainlO, Gainll, Gainl2, Gainl3, Gainl4, Gainl5 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gainl 6,  Gainl 7, Gainl 8, Gainl 9, Gain20, Gain21, Gain22, Gain23, Gain24, Gain25, 
Gain26, Gain27, Gain28, Gain29, Gain30, Gain31 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gain32,  Gain33, Gain34, Gain35, Gain36, Gain37, Gain38, Gain3  9, Gain4  0, Gain41, 
Gain42, Gain43, Gain44, Gain45, Gain46, Gain47 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gain4  8,  Gain4  9, Gain50, Gain51, Gain52, Gain53, Gain54, Gain55, Gain56, Gain57, 
Gain58, Gain59, Gain60, Gain61, Gain62, Gain63 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gain64,  Gain65, Gain66, Gain67, Gain68, Gain69, Gain7  0, Gain71, Gain72, Gain7  3, 
Gain74, Gain75, Gain76, Gain77, Gain78, Gain79 :  bit  vector  (4  downto 
1) :="0000"; 
signal 

Gain80,Gain81,Gain82,Gain83,Gain84,Gain85,Gain86,Gain87,Gain88,Gain89, 
Gain90, Gain91, Gain92, Gain93, Gain94, Gain95 :  bit_vector  (4  downto 
1) :="0000"; 
signal 

Gain96, Gain97, Gain98, Gain99, Gainl 00, GainlOl, Gainl 02, Gainl 03, Gainl 04, Gai 
nl05, 

Gainl06, Gainl07, Gainl08, Gainl09, GainllO, Gainlll :  bit  vector  (4  downto 
1) :="0000"; 
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signal 

Gainll2,  GainllS, Gainll4, GainllS, GainllG, Gainll7, GainllS, Gainll9, Gainl2  0 
, Gainl2 1 , 

Gainl22,  Gainl23, Gainl24, Gainl25, Gainl26, Gainl27 :  bit  vector  (4  downto 
1) :="0000"; 

signal 

PhaseIncO, Phaselncl, Phaselnc2, Phaselnc3, Phaselnc4, PhaseIncS, PhaseIncG, P 
haselnc7 , 

PhaseIncS, Phaselnc9, PhaselnclO, Phaseincll, Phaselncl2, Phaselncl3,  Phasein 

cl4 , PhaselnclS  :  bit_vector  (5  downto  1 ): ="00000" ; 

signal 

PhaselnclO, Phaselncl7, PhaselnclS, Phaselncl9, Phaselnc20, Phaselnc21, Phase 
Inc22, Phaselnc23, 

Phaselnc24, Phaselnc25, Phaselnc26, Phaselnc27, PhaseInc2S, Phaselnc29, Phase 

Inc30, Phaselnc31  :  bit_vector  (5  downto  1 ): ="00000" ; 

signal 

Phaselnc32, Phaselnc33, Phaselnc34, Phaselnc35, Phaselnc36, Phaselnc37, Phase 
Inc3S, Phaselnc39, 

Phaselnc40, Phaselnc41, Phaselnc42, Phaselnc43, Phaselnc44, Phaselnc45, Phase 

Inc46, Phaselnc47  :  bit  vector  (5  downto  1) :="00000"; 

signal 

PhaselnclS, Phaselnc49, PhaseIncSO, PhaseIncSl, Phaselnc52, Phaselnc53, Phase 
Inc54, PhaseIncSS, 

PhaseIncSO, Phaselnc57, PhaseIncSS, PhaseIncS9, PhaseIncOO, PhaseIncOl, Phase 

Inc02 , Phaselnc03  :  bit  vector  (S  downto  1) :="00000"; 

signal 

PhaseIncOl, PhaseIncOS, PhaseIncOO, Phaselnc07, PhaseIncOS, Phaselnc09, Phase 
Inc70, Phaselnc71, 

Phaselnc72, Phaselnc73, Phaselnc74, PhaselnclS, Phaselnc70, Phaselnc77, Phase 

Inc7 S , Phaselnc7 9  :  bit  vector  (S  downto  1) :="00000"; 

signal 

PhaseIncSO, PhaseIncSl, PhaseIncS2, PhaseIncSS, PhaseIncSl, PhaseIncSS, Phase 
IncSO, PhaseIncSl, 

PhaseIncSS, PhaseIncSO, PhaseIncOO, PhaseIncOl, Phaselnc92, PhaseIncOS, Phase 

Inc94 , PhaseIncOS  :  bit_vector  (S  downto  1 ): ="00000" ; 

signal 

PhaseIncOO, PhaseIncOS, PhaseIncOS, Phaselnc99, PhaseInclOO, PhaseInclOl, Pha 
selncl02, PhaseInclOS, 

PhaseInclOl, PhaseInclOS, PhaseInclOO, PhaseInclOS, PhaseInclOS, Phaselncl09 

, PhaseIncllO, Phaseinclll  :  bit  vector  (S  downto  1) :="00000"; 

signal 

Phaselncll2, PhaseIncllS, Phaseinclll, PhaseIncllS, PhaseIncllO, PhaseIncllS 
, Phaseincll S , Phaseincll 9 , 

Phaselncl20, Phaselncl21, Phaselncl22, Phaselncl23, PhaselnclS!, PhaselnclSS 
, PhaselnclSO, Phaselncl27  :  bit  vector  (S  downto  1 ): ="00000" ; 

signal 

URBO, URBl, URB2, URB3, URB4, URBS, URBO, URB7, URBS, URB9, URBIO, URBll, URB12, URB 

13, URB14, URBIS :  bit  : = ' 0 ' ; 

signal 

URBIO, URBIS, URBIS, URB19, URB20, URB21, URB22, URB23, URB24, URB2S, URB20, URB27 

,URB2S,URB29,URB30,URB31:  bit  : = ' 0 ' ; 

signal 

URB32,  URB33,  URB34,  URB3S,  URB30, URB37, URB3S, URB39, URB40, URBll, URB42, URB43 
, URBll, URBIS, URBIO, URB4 7:  bit  : = ' 0 ' ; 
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signal 

URB48,  URB49,  URB50,  URB51,  URB52, URB53, URB54, URB55, URB56, URB57, URB58, URB59 

,URB60,URB61,URB62,URB63:  bit  : = ' 0 ' ; 

signal 

URB64,  URB65,  URB66,  URB67,  URB68, URB69, URB70, URB71, URB72, URB73, URB74, URB75 

,URB76,URB77,URB78,URB79:  bit  : = ' 0 ' ; 

signal 

URB80,  URB81,  URB82,  URB83,  URB84, URB85, URB86, URB87, URB88, URB89, URB90, URB91 

,URB92,URB93,URB94,URB95:  bit  : = ' 0 ' ; 

signal 

URB96,  URB97,  URB98,  URB99,  URBIOO, URBlOl, URB102, URB103, URB104, URB105, URBIO 

6, URB107, URB108, URB109, URBllO, URBlll :  bit  : = ' 0 ' ; 

signal 

URB112, URB113, URB114, URB115, URB116, URB117, URB118, URB119, URB120, URB121, U 
RB122, URB123, URB124, URB125, URB126, URB127 :  bit  : = ' 0 ' ; 

signal  PhaseSamp:  bit  vector  (5  downto  1) :=  "00000"; 
signal  UNP,  PSVin,  ODVin:  bit  : = ' 0 ' ; 

signal  LD,  RESET,  PRB,  PRBl,  PRB2,  PRB3,  PRB4,  PRB5,  PRB6,  PRB7,  PRB8, 
PRB9,  PRBIO,  PRBll,  PRB12,  PRB13,  PRB14,  PRB15, 

PRB16,  PRB17,  PRB18,  PRB19,  PRB20,  PRB21,  PRB22,  PRB23,  PRB24,  PRB25, 
PRB26,  PRB27,  PRB28,  PRB29,  PRB30,  PRB31, 

PRBlnot,  PRB2not, PRB3not, PRB4not, PRBSnot, PRBOnot, PRB7not, PRB8not, PRB9not 
, PRBlOnot, PRBllnot, PRB12not, PRB13not, PRB14not, PRBlSnot, 

PRBlOnot, PRB17not, PRB18not, PRB19not, PRB20not, PRB21not, PRB22not, PRB23not 
, PRB24not, PRB25not, PRB26not, PRB27not, 

PRB28not, PRB29not, PRB30not, PRB31not :bit; 

Begin  --  BINO  is  the  primary  output 


--Input : 

formats , 

cycle 

begins 

when  PRB=1,  1 

format 

per 

clock 

--  ten  bits  of  each  bin 

:  10  1 

9-5 

14-1  1 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin3  1 

bin2 

1  binl 

1  binO 

1  sample 

1 PSVin 

1  UNP 

PRB 

CO 

I 

ro 

1 

1 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  bin7  1 

bin6 

!  bin5 

1  bin4 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-48 

147-38  1 

37-28 

1  27-18 

1  17-8 

1  7-3 

1  2 

1  1 

1  0 

--unused 

1  binl 1 1 

binlO 1  bin9 

1  bin8 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-48 

147-38  1 

37-28 

1  27-18 

I  17-8 

!  7-3 

1  2 

1  1 

1  0 

--unused 

1  binl5 1 

binl4 1  binl3 

1  binl2 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  63-8 

I  7-3 

1  2 

1  1 

1  0 

--unused 

1  sample 

I PSVin 

1  UNP 

PRB 

--  more  bins  in  same  pattern  up  to  128... 

--  The  first  sample  can  be  entered  on  clock  129  if  PSVin  and  UNP  are 
taken  high 
LD<= ' 1 ' ; 

RESET<=' 0 ' ; 

PRB<= Input (0) ; 

UNP<=Input (1) ; 

PSVin<=Input (2)  ; 

PhaseSamp<=Input ( 7  downto  3); 

--  Bins  0, 4,  8,  12, 16,  20, 24, 28, 32, 36,  40, 44, 48, 52, 56,  60  ...  124  data 
URB0<=Input (17) ; 

Phaselnc0<=lnput ( 1 6  downto  12); 

Gain0<=lnput ( 1 1  downto  8); 

URB4<=Input  (17)  ; 

Phaselnc4<=lnput ( 1 6  downto  12); 
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Gain4<=Input ( 1 1  downto  8); 
URB8<=Input  (17)  ; 
Phaselnc8<=lnput ( 1 6  downto  12); 
Gain8<=Input  ( 1 1  downto  8); 
URB12<=Input (17) ; 
Phaselncl2<=lnput ( 1 6  downto  12) 
Gainl2<=Input ( 1 1  downto  8); 
URB16<=Input (17); 

Phaselncl 6<=Input ( 1 6  downto  12) 
Gainl 6<=Input ( 1 1  downto  8); 
URB20<=Input (17); 

Phaselnc2 0<=lnput ( 1 6  downto  12) 
Gain20<=Input (11  downto  8); 

URB2  4<=Input (17)  ; 
Phaselnc24<=lnput (16  downto  12) 
Gain24<=Input (11  downto  8); 
URB28<=Input (17); 

Phaselnc2 8<=Input ( 1 6  downto  12) 
Gain2 8<=Input ( 1 1  downto  8); 
URB32<=Input (17)  ; 
Phaselnc32<=lnput ( 1 6  downto  12) 
Gain32<=Input ( 1 1  downto  8); 
URB36<=Input (17)  ; 
Phaselnc36<=lnput (16  downto  12) 
Gain36<=Input (11  downto  8); 
URB40<=Input (17); 

Phaselnc4 0<=lnput ( 1 6  downto  12) 
Gain4 0<=lnput ( 1 1  downto  8); 

URB4  4<=Input (17)  ; 
Phaselnc44<=lnput (16  downto  12) 
Gain44<=Input (11  downto  8); 
URB48<=Input (17); 

Phaselnc4 8<=Input ( 1 6  downto  12) 
Gain4 8<=Input ( 1 1  downto  8); 
URB52<=Input ( 17 ) ; 
Phaselnc52<=lnput ( 1 6  downto  12) 
Gain52<=Input ( 1 1  downto  8); 
URB56<=Input ( 17 ) ; 
Phaselnc56<=lnput (16  downto  12) 
Gain56<=Input (11  downto  8); 
URB60<=Input (17)  ; 
Phaselnc60<=lnput ( 1 6  downto  12) 
Gain60<=Input ( 1 1  downto  8); 
URB64<=Input  (17)  ; 
Phaselnc64<=lnput ( 1 6  downto  12) 
Gain64<=Input  ( 1 1  downto  8); 
URB68<=Input (17) ; 
Phaselnc68<=lnput ( 1 6  downto  12) 
Gain68<=Input ( 1 1  downto  8); 
URB72<=Input (17)  ; 
Phaselnc72<=lnput (16  downto  12) 
Gain72<=Input (11  downto  8); 

URB7  6<=Input ( 17  )  ; 

Phaselnc7 6<=Input ( 1 6  downto  12) 
Gain7 6<=Input ( 1 1  downto  8); 
URB80<=Input (17); 

Phaselnc8 0<=lnput ( 1 6  downto  12) 


Gain80<=Input (11  downto  8); 

URB84<=lnput (17)  ; 

Phaselnc84<=lnput (16  downto  12); 

Gain84<=lnput (11  downto  8); 

URB88<=lnput (17)  ; 

Phaselnc88<=lnput (16  downto  12); 

Gain8 8<=lnput ( 1 1  downto  8); 

URB92<=lnput  (17)  ; 

Phaselnc92<=lnput ( 1 6  downto  12); 

Gain92<=lnput  ( 1 1  downto  8); 

URB96<=lnput (17) ; 

Phaselnc96<=lnput (16  downto  12); 

Gain96<=lnput (11  downto  8); 

URB100<=lnput (17)  ; 

PhaselnclOO<=lnput (16  downto  12); 

Gainl 00<=lnput ( 1 1  downto  8); 

URB104<=lnput (17)  ; 

Phaselncl04<=lnput (16  downto  12); 

Gainl04<=lnput (11  downto  8); 

URB108<=lnput (17)  ; 

Phaselncl08<=lnput (16  downto  12); 

Gainl08<=lnput (11  downto  8); 

URB112<=lnput (17); 

Phaselncl 12<=lnput ( 1 6  downto  12); 

Gainl 12<=lnput ( 1 1  downto  8); 

URB116<=lnput (17); 

Phaselncl 1 6<=lnput ( 1 6  downto  12); 

Gainl 1 6<=lnput ( 1 1  downto  8); 

URB120<=lnput (17)  ; 

Phaselncl20<=lnput (16  downto  12); 

Gainl20<=lnput (11  downto  8); 

URB124<=lnput (17)  ; 

Phaselncl24<=lnput (16  downto  12); 

Gainl24<=lnput (11  downto  8); 

--  Bins  1, 5,  9,  13,  17, 21, 25, 29, 33, 37, 41, 45, 49, 53, 57, 61 ...  125  data 
URBl<=lnput (27) ; 

Phaselncl<=lnput (26  downto  22); 

Gainl<=lnput (21  downto  18); 

URB5<=lnput  (27)  ; 

Phaselnc5<=lnput (26  downto  22); 

Gain5<=lnput  (21  downto  18); 

URB9<=lnput (21) ; 

Phaselnc9<=lnput (26  downto  22); 

Gain9<=lnput (21  downto  18); 

URB13<=lnput  (21)  ; 

Phaselncl3<=lnput (26  downto  22); 

Gainl3<=lnput (21  downto  18); 

URB17<=lnput (27) ; 

Phaselncl7<=lnput (26  downto  22); 

Gainl7<=lnput (21  downto  18); 

URB21<=lnput  (21)  ; 

Phaselnc21<=lnput (26  downto  22); 

Gain21<=lnput (21  downto  18); 

URB25<=lnput (27) ; 

Phaselnc25<=lnput (26  downto  22); 

Gain25<=lnput (21  downto  18); 
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URB2  9<=Input  (21)  ; 
Phaselnc29<=lnput (26  downto  22); 
Gain29<=Input (21  downto  18); 
URB33<=lnput (27) ; 
Phaselnc33<=lnput (26  downto  22); 
Gain33<=lnput (21  downto  18); 
URB37<=lnput  (27)  ; 
Phaselnc37<=lnput (26  downto  22); 
Gain37<=lnput (21  downto  18); 
URB41<=lnput (27) ; 
Phaselnc41<=lnput (26  downto  22); 
Gain41<=lnput (21  downto  18); 

URB4  5<=lnput  (27)  ; 
Phaselnc45<=lnput (26  downto  22); 
Gain45<=lnput  (21  downto  18); 
URB49<=lnput (21) ; 
Phaselnc49<=lnput (26  downto  22); 
Gain49<=lnput (21  downto  18); 
URB53<=lnput (27)  ; 
Phaselnc53<=lnput (26  downto  22); 
Gain53<=lnput (21  downto  18); 
URB57<=lnput (27)  ; 
Phaselnc57<=lnput (26  downto  22); 
Gain57<=lnput (21  downto  18); 
URB61<=lnput (27)  ; 
Phaselnc61<=lnput (26  downto  22); 
Gain61<=lnput (21  downto  18); 
URB65<=lnput (27)  ; 
Phaselnc65<=lnput (26  downto  22); 
Gain65<=lnput (21  downto  18); 
URB69<=lnput (27)  ; 
Phaselnc69<=lnput (26  downto  22); 
Gain69<=lnput (21  downto  18); 

URB7  3<=lnput  (27)  ; 
Phaselnc73<=lnput (26  downto  22); 
Gain73<=lnput  (21  downto  18); 
URB77<=lnput (21) ; 
Phaselnc77<=lnput (26  downto  22); 
Gain77<=lnput (21  downto  18); 
URB81<=lnput (27)  ; 
Phaselnc81<=lnput (26  downto  22); 
Gain81<=lnput (21  downto  18); 
URB85<=lnput (27)  ; 
Phaselnc85<=lnput (26  downto  22); 
Gain85<=lnput (21  downto  18); 

URB8  9<=lnput (21)  ; 
Phaselnc89<=lnput (26  downto  22); 
Gain89<=lnput (21  downto  18); 
URB93<=lnput  (27)  ; 
Phaselnc93<=lnput (26  downto  22); 
Gain93<=lnput  (21  downto  18); 
URB97<=lnput (27) ; 
Phaselnc97<=lnput (26  downto  22); 
Gain97<=lnput (21  downto  18); 
URB101<=lnput (27)  ; 
Phaselncl01<=lnput (26  downto  22) 
Gainl01<=lnput (21  downto  18); 


URB105<=Input  (27)  ; 

Phaselncl05<=lnput  (26  downto  22); 

Gainl05<=Input  (21  downto  18); 

URB109<=Input (21) ; 

Phaselncl09<=lnput (26  downto  22); 

Gainl09<=Input (21  downto  18); 

URB113<=Input (21)  ; 

Phaselncll3<=lnput (26  downto  22); 

Gainll3<=Input (21  downto  18); 

URB117<=Input (21)  ; 

Phaselncll7<=lnput (26  downto  22); 

Gainll7<=Input (21  downto  18); 

URB121<=Input (27)  ; 

Phaselncl21<=lnput (26  downto  22); 

Gainl21<=Input (21  downto  18); 

URB125<=Input (27)  ; 

Phaselncl25<=lnput (26  downto  22); 

Gainl25<=Input (21  downto  18); 

--  Bins  2, 6,  10,  14,  18, 22, 26,  30, 34, 38, 42, 46,  50, 54, 58, 62  ...  126  data 
URB2<= Input (31)  ; 

Phaselnc2<=lnput (36  downto  32); 

Gain2<=Input (31  downto  28); 

URB6<= Input  (37)  ; 

Phaselnc6<=lnput  (36  downto  32); 

Gain6<=Input (31  downto  28); 

URB10<=Input (31) ; 

PhaseInclO<=Input (36  downto  32); 

GainlO<=Input (31  downto  28); 

URB14<=Input (31)  ; 

Phaselncl4<=lnput (36  downto  32); 

Gainl4<=Input (31  downto  28); 

URB18<=Input (31)  ; 

Phaselncl8<=lnput (36  downto  32); 

Gainl8<=Input (31  downto  28); 

URB22<=Input (31)  ; 

Phaselnc22<=lnput (36  downto  32); 

Gain22<=Input (31  downto  28); 

URB2  6<=Input (31) ; 

Phaselnc26<=lnput (36  downto  32); 

Gain26<=Input (31  downto  28); 

URB30<=Input (37)  ; 

Phaselnc30<=lnput (36  downto  32); 

Gain30<=Input (31  downto  28); 

URB34<=Input (31)  ; 

Phaselnc34<=lnput (36  downto  32); 

Gain34<=Input (31  downto  28); 

URB38<=Input (37)  ; 

Phaselnc38<=lnput (36  downto  32); 

Gain38<=Input (31  downto  28); 

URB42<=Input  (31)  ; 

Phaselnc42<=lnput (36  downto  32); 

Gain42<=Input  (31  downto  28); 

URB4  6<=Input (31) ; 

Phaselnc46<=lnput (36  downto  32); 

Gain46<=Input (31  downto  28); 

URB50<=Input (37)  ; 
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Phaselnc50<=lnput (36  downto  32); 
Gain50<=Input (31  downto  28); 
URB54<=Input (37)  ; 
Phaselnc54<=lnput (36  downto  32); 
Gain54<=Input (31  downto  28); 
URB58<=lnput (37)  ; 
Phaselnc58<=lnput (36  downto  32); 
Gain58<=lnput (31  downto  28); 
URB62<=lnput (37)  ; 
Phaselnc62<=lnput (36  downto  32); 
Gain62<=lnput (31  downto  28); 
URB66<=lnput (37)  ; 
Phaselnc66<=lnput (36  downto  32); 
Gain66<=lnput (31  downto  28); 

URB7 0<=lnput  ( 37 )  ; 
Phaselnc70<=lnput (36  downto  32); 
Gain70<=lnput  (31  downto  28); 
URB74<=lnput (31) ; 
Phaselnc74<=lnput (36  downto  32); 
Gain74<=lnput (31  downto  28); 

URB7  8<=lnput (31) ; 
Phaselnc78<=lnput (36  downto  32); 
Gain78<=lnput (31  downto  28); 
URB82<=lnput (31)  ; 
Phaselnc82<=lnput (36  downto  32); 
Gain82<=lnput (31  downto  28); 

URB8  6<=lnput (31) ; 
Phaselnc86<=lnput (36  downto  32); 
Gain86<=lnput (31  downto  28); 
URB90<=lnput (37)  ; 
Phaselnc90<=lnput (36  downto  32); 
Gain90<=lnput (31  downto  28); 
URB94<=lnput (31)  ; 
Phaselnc94<=lnput (36  downto  32); 
Gain94<=lnput (31  downto  28); 
URB98<=lnput (37)  ; 
Phaselnc98<=lnput (36  downto  32); 
Gain98<=lnput (31  downto  28); 
URB102<=lnput (37)  ; 
Phaselncl02<=lnput (36  downto  32) 
Gainl02<=lnput (31  downto  28); 
URB106<=lnput (37)  ; 
Phaselncl06<=lnput (36  downto  32) 
Gainl06<=lnput (31  downto  28); 
URB110<=lnput (31)  ; 
PhaselncllO<=lnput (36  downto  32) 
GainllO<=lnput (31  downto  28); 
URB114<=lnput (31)  ; 
Phaselncll4<=lnput (36  downto  32) 
Gainll4<=lnput (31  downto  28); 
URB118<=lnput (31)  ; 
Phaselncll8<=lnput (36  downto  32) 
Gainll8<=lnput (31  downto  28); 
URB122<=lnput (37)  ; 
Phaselncl22<=lnput (36  downto  32) 
Gainl22<=lnput (31  downto  28); 
URB12  6<=lnput (37)  ; 


Phaselncl26<=lnput (36  downto  32); 

Gainl26<=Input (31  downto  28); 

--  Bins  3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63. . .127  data 
URB3<=Input (47) ; 

Phaselnc3<=lnput ( 4 6  downto  42); 

Gain3<=Input ( 4 1  downto  38); 

URB7<=Input  (47)  ; 

Phaselnc7<=lnput ( 4 6  downto  42); 

Gain7<=Input  (41  downto  38); 

URBll<=Input (47); 

Phaselncl l<=Input ( 4 6  downto  42); 

Gainl l<=Input ( 4 1  downto  38); 

URB15<=Input (47)  ; 

Phaselncl5<=lnput (46  downto  42); 

Gainl5<=Input (41  downto  38); 

URB19<=Input (47); 

Phaselncl 9<=Input ( 4 6  downto  42); 

Gainl 9<=Input ( 4 1  downto  38); 

URB2  3<=Input (47)  ; 

Phaselnc23<=lnput (46  downto  42); 

Gain23<=Input (41  downto  38); 

URB2  7<=Input (47)  ; 

Phaselnc27<=lnput (46  downto  42); 

Gain27<=Input (41  downto  38); 

URB31<=Input (47)  ; 

Phaselnc31<=lnput (46  downto  42); 

Gain31<=Input (41  downto  38); 

URB35<=Input (47)  ; 

Phaselnc35<=lnput ( 4 6  downto  42); 

Gain35<=Input ( 4 1  downto  38); 

URB39<=Input (47)  ; 

Phaselnc39<=lnput (46  downto  42); 

Gain39<=Input (41  downto  38); 

URB4  3<=Input  (47)  ; 

Phaselnc43<=lnput (46  downto  42); 

Gain43<=Input  (41  downto  38); 

URB47<=Input (47) ; 

Phaselnc47<=lnput (46  downto  42); 

Gain47<=Input (41  downto  38); 

URB51<=Input (47)  ; 

Phaselnc51<=lnput (46  downto  42); 

Gain51<=Input (41  downto  38); 

URB55<=Input (47)  ; 

Phaselnc55<=lnput ( 4 6  downto  42); 

Gain55<=Input ( 4 1  downto  38); 

URB59<=Input (47)  ; 

Phaselnc59<=lnput (46  downto  42); 

Gain59<=Input (41  downto  38); 

URB63<=Input (47)  ; 

Phaselnc63<=lnput ( 4 6  downto  42); 

Gain63<=Input ( 4 1  downto  38); 

URB67<=Input  (47)  ; 

Phaselnc67<=lnput ( 4 6  downto  42); 

Gain67<=Input ( 4 1  downto  38); 

URB71<=Input (47); 

Phaselnc7 l<=Input ( 4 6  downto  42); 
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Gain? l<=Input ( 4 1  downto  38); 

URB7  5<=Input  (47)  ; 
Phaselnc75<=lnput ( 4 6  downto  42); 
Gain7  5<=Input  ( 4 1  downto  38); 
URB79<=Input (47); 

Phaseinc? 9<=Input ( 4 6  downto  42); 
Gain? 9<=Input ( 4 1  downto  38); 
URB83<=Input (47)  ; 
Phaselnc83<=lnput (46  downto  42); 
Gain83<=Input (41  downto  38); 
URB87<=Input  (47)  ; 
Phaselnc87<=lnput (46  downto  42); 
Gain87<=Input (41  downto  38); 
URB91<=lnput (47) ; 
Phaselnc91<=lnput (46  downto  42); 
Gain91<=lnput (41  downto  38); 
URB95<=lnput  (47)  ; 
Phaselnc95<=lnput ( 4 6  downto  42); 
Gain95<=lnput  ( 4 1  downto  38); 
URB99<=lnput (47) ; 
Phaselnc99<=lnput (46  downto  42); 
Gain99<=lnput (41  downto  38); 
URB103<=lnput (47)  ; 
Phaselncl03<=lnput (46  downto  42); 
Gainl03<=lnput (41  downto  38); 
URB107<=lnput (47)  ; 
Phaselncl07<=lnput (46  downto  42); 
Gainl07<=lnput (41  downto  38); 
URBlll<=lnput (47); 

Phaselncl 1 l<=lnput ( 4 6  downto  42); 
Gainl 1 l<=lnput ( 4 1  downto  38); 
URB115<=lnput (47)  ; 
Phaselncll5<=lnput (46  downto  42); 
Gainll5<=lnput (41  downto  38); 
URB119<=lnput (47); 

Phaselncl 1 9<=lnput ( 4 6  downto  42); 
Gainl 1 9<=lnput ( 4 1  downto  38); 
URB123<=lnput (47)  ; 
Phaselncl23<=lnput (46  downto  42); 
Gainl23<=lnput (41  downto  38); 
URB127<=lnput (47)  ; 
Phaselncl27<=lnput (46  downto  42); 
Gainl27<=lnput (41  downto  38); 


DFFO 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB,  PRBl, 

PRBlnot) ; 

DFFl 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl,  PRB2, 

PRB2not)  ; 

DFF2 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB2,  PRB3, 

PRB3not)  ; 

DFF3 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB3,  PRB4, 

PRB4not)  ; 

DFF4 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB4,  PRB5, 

PRBSnot)  ; 

DFF5 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB5,  PRB6, 

PRB6not)  ; 

DFF6 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB6,  PRB7, 

PRB7not)  ; 

DFF7 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB7,  PRB8, 

PRBSnot)  ; 

DFF8 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB8,  PRB9, 

PRB9not)  ; 

DFF9 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB9,  PRBIO 

,  PRBlOnot) 

DFFIO:  DFlipFlop  port  map  (CLK,  LD,  RESET,  PRBIO,  PRBll,  PRBllnot) 
DFFll:  DFlipFlop  port  map  (CLK,  LD,  RESET,  PRBll,  PRB12,  PRB12not) 
DFF12:  DFlipFlop  port  map  (CLK,  LD,  RESET,  PRB12,  PRB13,  PRB13not) 
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DFF13 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 3, 

PRBl 4, 

PRB14not) ; 

DFF14 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 4, 

PRBl 5, 

PRB15not) ; 

DFF15 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 5, 

PRBl 6, 

PRB16not) ; 

DFF16 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 6, 

PRBl 7, 

PRBllnot) ; 

DFF17 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 7, 

PRBl 8, 

PRBl Snot) ; 

DFFIS 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 8, 

PRBl 9, 

PRB19not) ; 

DFF19 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRBl 9, 

PRB20, 

PRB20not) ; 

DFF2  0 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB20, 

PRB21, 

PRB21not) ; 

DFF21 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB21, 

PRB22, 

PRB22not) ; 

DFF22 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB22, 

PRB23, 

PRB23not) ; 

DFF23 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB23, 

PRB24, 

PRB24not) ; 

DFF24 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB24, 

PRB25, 

PRB25not) ; 

DFF25 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB25, 

PRB26, 

PRB26not) ; 

DFF2  6 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB26, 

PRB27, 

PRB27not) ; 

DFF27 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB27, 

PRB28, 

PRB28not) ; 

DFF2S 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB28, 

PRB29, 

PRB29not) ; 

DFF2  9 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB29, 

PRB30, 

PRB30not) ; 

DFF30 

DFlipFlop 

port 

map 

(CLK, 

LD, 

RESET, 

PRB30, 

PRB31, 

PRB31not) ; 

BINO:  OneBin  port  map  (DRFMl,  PhaseIncO,  GainO,  URBO,  UNP,  PRB, 
ODVoutl,  PSVoutl,  Ql,  II,  Q,  I,  ODVoutO,  PSVoutO,  DRFMO,  CLK) ; 

BINl:  OneBin  port  map  (DRFM2,  Phaselncl,  Gainl,  URBl,  UNP,  PRB, 
ODVout2,  PSVout2,  Q2,  12,  Ql,  II,  ODVoutl,  PSVoutl,  DRFMl,  CLK) ; 

BIN2:  OneBin  port  map  (DRFM3,  Phaselnc2,  Gain2,  URB2,  UNP,  PRB, 
ODVout3,  PSVout3,  Q3,  13,  Q2,  12,  ODVout2,  PSVout2,  DRFM2 ,  CLK) ; 

BIN3:  OneBin  port  map  (DRFM4,  Phaselnc3,  Gain3,  URB3,  UNP,  PRB, 
ODVouti,  PSVouti,  Q4,  14,  Q3,  13,  ODVout3,  PSVout3,  DRFM3,  CLK) ; 

BIN4:  OneBin  port  map  (DRFM5,  Phaselnc4,  Gain4,  URB4,  UNP,  PRBl, 
ODVoutS,  PSVoutS,  Q5,  15,  Q4,  14,  ODVout4,  PSVout4,  DRFM4 ,  CLK) ; 

BIN5:  OneBin  port  map  (DRFM6,  Phaselnc5,  Gain5,  URB5,  UNP,  PRBl, 
ODVoute,  PSVoute,  Q6,  16,  Q5,  15,  ODVout5,  PSVout5,  DRFM5,  CLK) ; 

BIN6:  OneBin  port  map  (DRFM7,  Phaselnc6,  Gain6,  URB6,  UNP,  PRBl, 
ODVoutl,  PSVout7,  Q7,  17,  Q6,  16,  ODVout6,  PSVout6,  DRFM6,  CLK) ; 

BIN7:  OneBin  port  map  (DRFM8,  Phaselncl,  Gainl,  URBl,  UNP,  PRBl, 
ODVoutS,  PSVoutS,  QS,  IS,  Ql,  17,  ODVoutl,  PSVoutl,  DRFMl,  CLK) ; 

BINS:  OneBin  port  map  (DRFM9,  PhaseIncS,  GainS,  URBS,  UNP,  PRB2, 
ODVoutg,  PSVout9,  09,  19,  QS,  IS,  ODVoutS,  PSVoutS,  DRFMS,  CLK) ; 

BIN9:  OneBin  port  map  (DRFMIO,  Phaselnc9,  Gain9,  URB9,  UNP,  PRB2, 
ODVoutlO,  PSVoutlO,  QIO,  110,  Q9,  19,  ODVout9,  PSVout9,  DRFM9,  CLK) ; 
BINIO:  OneBin  port  map  (DRFMll,  PhaselnclO,  GainlO,  URBIO,  UNP,  PRB2, 
ODVoutll,  PSVoutll,  Oil,  Ill,  QIO,  110,  ODVoutlO,  PSVoutlO,  DRFMIO, 
CLK)  ; 

BINll:  OneBin  port  map  (DRFM12,  Phaseincll,  Gainll,  URBll,  UNP,  PRB2, 
ODVoutl2,  PSVoutl2,  Q12,  112,  Qll,  Ill,  ODVoutll,  PSVoutll,  DRFMll, 

CLK)  ; 

BIN12:  OneBin  port  map  (DRFM13,  Phaselncl2,  Gainl2,  URB12,  UNP,  PRB3, 
ODVoutl3,  PSVoutl3,  Q13,  113,  Q12,  112,  ODVoutl2,  PSVoutl2,  DRFM12, 

CLK)  ; 

BIN13:  OneBin  port  map  (DRFM14,  Phaselncl3,  Gainl3,  URB13,  UNP,  PRB3, 
ODVoutl4,  PSVoutl4,  Q14,  114,  Q13,  113,  ODVoutl3,  PSVoutl3,  DRFM13, 

CLK)  ; 

BIN14:  OneBin  port  map  (DRFM15,  Phaselncl4,  Gainl4,  URB14,  UNP,  PRB3, 
ODVoutl5,  PSVoutl5,  Q15,  115,  Q14,  114,  ODVoutl4,  PSVoutl4,  DRFM14, 

CLK)  ; 

BIN15:  OneBin  port  map  (DRFM16,  Phaselncl5,  Gainl5,  URB15,  UNP,  PRB3, 
ODVoutl6,  PSVoutl6,  Q16,  116,  Q15,  115,  ODVoutl5,  PSVoutl5,  DRFM15, 

CLK)  ; 
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BIN16:  OneBin  port  map  (DRFM17,  PhaseInclG,  Gainl6,  URB16, 
0DVoutl7,  PSVoutl7,  Q17,  117,  Q16,  116,  0DVoutl6,  PSVoutl6 
CLK)  ; 

B1N17:  OneBin  port  map  (DRFM18,  Phaselncl7,  Gainl7,  URB17, 
ODVoutlS,  PSVoutlS,  Q18,  118,  Q17,  117,  0DVoutl7,  PSVoutl7 
CLK)  ; 

B1N18:  OneBin  port  map  (DRFM19,  Phaselncl8,  Gainl8,  URB18, 
0DVoutl9,  PSVoutl9,  Q19,  119,  Q18,  118,  0DVoutl8,  PSVoutl8 
CLK)  ; 

B1N19:  OneBin  port  map  (DRFM20,  Phaselncl9,  Gainl9,  URB19, 
ODVout20,  PSVout20,  Q20,  120,  Q19,  119,  ODVoutl9,  PSVoutl9 
CLK)  ; 

B1N20:  OneBin  port  map  (DRFM21,  Phaselnc20,  Gain20,  URB20, 
ODVout21,  PSVout21,  Q21,  121,  Q20,  120,  ODVout20,  PSVout20 
CLK)  ; 

B1N21:  OneBin  port  map  (DRFM22,  Phaselnc21,  Gain21,  URB21, 
ODVout22,  PSVout22,  Q22,  122,  Q21,  121,  ODVout21,  PSVout21 
CLK)  ; 

B1N22:  OneBin  port  map  (DRFM23,  Phaselnc22,  Gain22,  URB22, 
ODVout23,  PSVout23,  Q23,  123,  Q22,  122,  ODVout22,  PSVout22 
CLK)  ; 

B1N23:  OneBin  port  map  (DRFM24,  Phaselnc23,  Gain23,  URB23, 
ODVout24,  PSVout24,  Q24,  124,  Q23,  123,  ODVout23,  PSVout23 
CLK)  ; 

B1N24:  OneBin  port  map  (DRFM25,  Phaselnc24,  Gain24,  URB24, 
ODVout25,  PSVout25,  Q25,  125,  Q24,  124,  ODVout24,  PSVout24 
CLK)  ; 

B1N25:  OneBin  port  map  (DRFM26,  Phaselnc25,  Gain25,  URB25, 
ODVout26,  PSVout26,  Q26,  126,  Q25,  125,  ODVout25,  PSVout25 
CLK)  ; 

B1N26:  OneBin  port  map  (DRFM27,  Phaselnc26,  Gain26,  URB26, 
ODVout27,  PSVout27,  Q27,  127,  Q26,  126,  ODVout26,  PSVout26 
CLK)  ; 

B1N27:  OneBin  port  map  (DRFM28,  Phaselnc27,  Gain27,  URB27, 
ODVout28,  PSVout28,  Q28,  128,  Q27,  127,  ODVout27,  PSVout27 
CLK)  ; 

B1N28:  OneBin  port  map  (DRFM29,  Phaselnc28,  Gain28,  URB28, 
ODVout29,  PSVout29,  Q29,  129,  Q28,  128,  ODVout28,  PSVout28 
CLK)  ; 

B1N29:  OneBin  port  map  (DRFM30,  Phaselnc29,  Gain29,  URB29, 
ODVout30,  PSVout30,  Q30,  130,  Q29,  129,  ODVout29,  PSVout29 
CLK)  ; 

B1N30:  OneBin  port  map  (DRFM31,  Phaselnc30,  Gain30,  URB30, 
ODVout31,  PSVout31,  Q31,  131,  Q30,  130,  ODVout30,  PSVout30 
CLK)  ; 

B1N31:  OneBin  port  map  (DRFM32,  Phaselnc31,  Gain31,  URB31, 
ODVout32,  PSVout32,  Q32,  132,  Q31,  131,  ODVout31,  PSVout31 
CLK)  ; 

B1N32 :  OneBin  port  map  (DRFM33,  Phaselnc32,  Gain32,  URB32, 
ODVout33,  PSVout33,  Q33,  133,  Q32,  132,  ODVout32,  PSVout32 
CLK)  ; 

B1N33:  OneBin  port  map  (DRFM34,  Phaselnc33,  Gain33,  URB33, 
ODVout34,  PSVout34,  Q34,  134,  Q33,  133,  ODVout33,  PSVout33 
CLK)  ; 

B1N34:  OneBin  port  map  (DRFM35,  Phaselnc34,  Gain34,  URB34, 
ODVout35,  PSVout35,  Q35,  135,  Q34,  134,  ODVout34,  PSVout34 
CLK)  ; 


UNP,  PRB4 
DRFM16, 

UNP,  PRB4 
DRFM17, 

UNP,  PRB4 
DRFM18, 

UNP,  PRB4 
DRFM19, 

UNP,  PRB5 
DRFM2  0 , 

UNP,  PRB5 
DRFM2 1 , 

UNP,  PRB5 
DRFM22, 

UNP,  PRB5 
DRFM23, 

UNP,  PRB6 
DRFM24, 

UNP,  PRB6 
DRFM25, 

UNP,  PRB6 
DRFM26, 

UNP,  PRB6 
DRFM27, 

UNP,  PRB7 
DRFM2  8 , 

UNP,  PRB7 
DRFM2  9 , 

UNP,  PRB7 
DRFM30, 

UNP,  PRB7 
DRFM31, 

UNP,  PRB8 
DRFM32, 

UNP,  PRB8 
DRFM33, 

UNP,  PRB8 
DRFM34, 
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BIN35:  OneBin  port  map  (DRFM36,  Phaselnc35,  Gain35,  URB35, 
ODVout36,  PSVout36,  Q36,  136,  Q35,  135,  ODVout35,  PSVout35 
CLK)  ; 

BIN36:  OneBin  port  map  (DRFM37,  Phaselnc36,  Gain36,  URB36, 
ODVout37,  PSVout37,  Q37,  137,  Q36,  136,  ODVout36,  PSVout36 
CLK)  ; 

BIN37 :  OneBin  port  map  (DRFM38,  Phaselnc37,  Gain37,  URB37, 
ODVout38,  PSVout38,  Q38,  138,  Q37,  137,  ODVout37,  PSVout37 
CLK)  ; 

BIN38:  OneBin  port  map  (DRFM39,  Phaselnc38,  Gain38,  URB38, 
ODVout39,  PSVout39,  Q39,  139,  Q38,  138,  ODVout38,  PSVout38 
CLK)  ; 

BIN39:  OneBin  port  map  (DRFM40,  Phaselnc39,  Gain39,  URB39, 
ODVoutiO,  PSVoutiO,  Q40,  140,  Q39,  139,  ODVout39,  PSVout39 
CLK)  ; 

BIN40:  OneBin  port  map  (DRFM41,  Phaselnc40,  Gain40,  URB40, 
ODVout41,  PSVout41,  Q41,  141,  Q40,  140,  ODVout40,  PSVout40 
CLK)  ; 

BIN41:  OneBin  port  map  (DRFM42,  Phaselnc41,  Gain41,  URB41, 
ODVout42,  PSVout42,  Q42,  142,  Q41,  141,  ODVout41,  PSVout41 
CLK)  ; 

B1N42:  OneBin  port  map  (DRFM43,  Phaselnc42,  Gain42,  URB42, 
ODVout43,  PSVout43,  Q43,  143,  Q42,  142,  ODVout42,  PSVout42 
CLK)  ; 

B1N43:  OneBin  port  map  (DRFM44,  Phaselnc43,  Gain43,  URB43, 
ODVout44,  PSVout44,  Q44,  144,  Q43,  143,  ODVout43,  PSVout43 
CLK)  ; 

B1N44:  OneBin  port  map  (DRFM45,  Phaselnc44,  Gain44,  URB44, 
ODVout45,  PSVout45,  Q45,  145,  Q44,  144,  ODVout44,  PSVout44 
CLK)  ; 

B1N45:  OneBin  port  map  (DRFM46,  Phaselnc45,  Gain45,  URB45, 
ODVout46,  PSVout46,  Q46,  146,  Q45,  145,  ODVout45,  PSVout45 
CLK)  ; 

B1N46:  OneBin  port  map  (DRFM47,  Phaselnc46,  Gain46,  URB46, 
ODVout47,  PSVout47,  Q47,  147,  Q46,  146,  ODVout46,  PSVout46 
CLK)  ; 

B1N47:  OneBin  port  map  (DRFM48,  Phaselnc47,  Gain47,  URB47, 
ODVout48,  PSVout48,  Q48,  148,  Q47,  147,  ODVout47,  PSVout47 
CLK)  ; 

B1N48:  OneBin  port  map  (DRFM49,  Phaselnc48,  Gain48,  URB48, 
ODVout49,  PSVout49,  Q49,  149,  Q48,  148,  ODVout48,  PSVout48 
CLK)  ; 

B1N49:  OneBin  port  map  (DRFM50,  Phaselnc49,  Gain49,  URB49, 
ODVout50,  PSVout50,  Q50,  150,  Q49,  149,  ODVout49,  PSVout49 
CLK)  ; 

B1N50:  OneBin  port  map  (DRFM51,  Phaselnc50,  Gain50,  URB50, 
ODVout51,  PSVout51,  Q51,  151,  Q50,  150,  ODVout50,  PSVout50 
CLK)  ; 

B1N51:  OneBin  port  map  (DRFM52,  Phaselnc51,  Gain51,  URB51, 
ODVout52,  PSVout52,  Q52,  152,  Q51,  151,  ODVout51,  PSVout51 
CLK)  ; 

B1N52 :  OneBin  port  map  (DRFM53,  Phaselnc52,  Gain52,  URB52, 
ODVout53,  PSVout53,  Q53,  153,  Q52,  152,  ODVout52,  PSVout52 
CLK)  ; 

B1N53:  OneBin  port  map  (DRFM54,  Phaselnc53,  Gain53,  URB53, 
ODVout54,  PSVout54,  Q54,  154,  Q53,  153,  ODVout53,  PSVout53 
CLK)  ; 


UNP,  PRB8, 
DRFM35, 

UNP,  PRB9, 
DRFM36, 

UNP,  PRB9, 
DRFM37, 

UNP,  PRB9, 
DRFM38, 

UNP,  PRB9, 
DRFM39, 

UNP,  PRBIO 
DRFM40, 

UNP,  PRBIO 
DRFM41, 

UNP,  PRBIO 
DRFM42, 

UNP,  PRBIO 
DRFM43, 

UNP,  PRBll 
DRFM44, 

UNP,  PRBll 
DRFM45, 

UNP,  PRBll 
DRFM46, 

UNP,  PRBll 
DRFM47, 

UNP,  PRB12 
DRFM48, 

UNP,  PRB12 
DRFM49, 

UNP,  PRB12 
DRFM50, 

UNP,  PRB12 
DRFM51, 

UNP,  PRB13 
DRFM52, 

UNP,  PRB13 
DRFM53, 


90 


BIN54:  OneBin  port  map  (DRFM55,  Phaselnc54,  Gain54,  URB54,  UNP,  PRB13 
ODVoutSS,  PSVoutSS,  Q55,  155,  Q54,  154,  ODVout54,  PSVout54,  DRFM54, 

CLK)  ; 

BIN55:  OneBin  port  map  (DRFM56,  Phaselnc55,  Gain55,  URB55,  UNP,  PRB13 
ODVout56,  PSVout56,  Q56,  156,  Q55,  155,  ODVout55,  PSVout55,  DRFM55, 

CLK)  ; 

BIN56:  OneBin  port  map  (DRFM57,  Phaselnc56,  Gain56,  URB56,  UNP,  PRB14 
ODVout57,  PSVout57,  Q57,  157,  Q56,  156,  ODVout56,  PSVout56,  DRFM56, 

CLK)  ; 

BIN57 :  OneBin  port  map  (DRFM58,  Phaselnc57,  Gain57,  URB57,  UNP,  PRB14 
ODVout58,  PSVout58,  Q58,  158,  Q57,  157,  ODVout57,  PSVout57,  DRFM57, 

CLK)  ; 

BIN58:  OneBin  port  map  (DRFM59,  Phaselnc58,  Gain58,  URB58,  UNP,  PRB14 
ODVout59,  PSVout59,  Q59,  159,  Q58,  158,  ODVout58,  PSVout58,  DRFM58, 

CLK)  ; 

BIN59:  OneBin  port  map  (DRFM60,  Phaselnc59,  Gain59,  URB59,  UNP,  PRB14 
ODVout60,  PSVout60,  Q60,  160,  Q59,  159,  ODVout59,  PSVout59,  DRFM59, 

CLK)  ; 

BIN60:  OneBin  port  map  (DRFM61,  Phaselnc60,  Gain60,  URB60,  UNP,  PRB15 
ODVout61,  PSVout61,  Q61,  161,  Q60,  160,  ODVout60,  PSVout60,  DRFM60, 

CLK)  ; 

BIN61:  OneBin  port  map  (DRFM62,  Phaselnc61,  Gain61,  URB61,  UNP,  PRB15 
ODVout62,  PSVout62,  Q62,  162,  Q61,  161,  ODVout61,  PSVout61,  DRFM61, 

CLK)  ; 

B1N62:  OneBin  port  map  (DRFM63,  Phaselnc62,  Gain62,  URB62,  UNP,  PRB15 
ODVout63,  PSVout63,  Q63,  163,  Q62,  162,  ODVout62,  PSVout62,  DRFM62, 

CLK)  ; 

B1N63:  OneBin  port  map  (DRFM64,  Phaselnc63,  Gain63,  URB63,  UNP,  PRB15 
ODVout64,  PSVout64,  Q64,  164,  Q63,  163,  ODVout63,  PSVout63,  DRFM63, 

CLK)  ; 

B1N64:  OneBin  port  map  (DRFM65,  Phaselnc64,  Gain64,  URB64,  UNP,  PRB16 
ODVout65,  PSVout65,  Q65,  165,  Q64,  164,  ODVout64,  PSVout64,  DRFM64, 

CLK)  ; 

B1N65:  OneBin  port  map  (DRFM66,  Phaselnc65,  Gain65,  URB65,  UNP,  PRB16 
ODVout66,  PSVout66,  Q66,  166,  Q65,  165,  ODVout65,  PSVout65,  DRFM65, 

CLK)  ; 

B1N66:  OneBin  port  map  (DRFM67,  Phaselnc66,  Gain66,  URB66,  UNP,  PRB16 
ODVout67,  PSVout67,  Q67,  167,  Q66,  166,  ODVout66,  PSVout66,  DRFM66, 

CLK)  ; 

B1N67:  OneBin  port  map  (DRFM68,  Phaselnc67,  Gain67,  URB67,  UNP,  PRB16 
ODVout68,  PSVout68,  Q68,  168,  Q67,  167,  ODVout67,  PSVout67,  DRFM67, 

CLK)  ; 

B1N68:  OneBin  port  map  (DRFM69,  Phaselnc68,  Gain68,  URB68,  UNP,  PRB17 
ODVout69,  PSVout69,  Q69,  169,  Q68,  168,  ODVout68,  PSVout68,  DRFM68, 

CLK)  ; 

B1N69:  OneBin  port  map  (DRFM70,  Phaselnc69,  Gain69,  URB69,  UNP,  PRB17 
ODVout70,  PSVout70,  Q70,  170,  Q69,  169,  ODVout69,  PSVout69,  DRFM69, 

CLK)  ; 

B1N70:  OneBin  port  map  (DRFM71,  Phaselnc70,  Gain70,  URB70,  UNP,  PRB17 
ODVout71,  PSVout71,  Q71,  171,  Q70,  170,  ODVout70,  PSVout70,  DRFM70, 

CLK)  ; 

B1N71:  OneBin  port  map  (DRFM72,  Phaselnc71,  Gain71,  URB71,  UNP,  PRB17 
ODVout72,  PSVout72,  Q72,  172,  Q71,  171,  ODVout71,  PSVout71,  DRFM71, 

CLK)  ; 

B1N72:  OneBin  port  map  (DRFM73,  Phaselnc72,  Gain72,  URB72,  UNP,  PRB18 
ODVout73,  PSVout73,  Q73,  173,  Q72,  172,  ODVout72,  PSVout72,  DRFM72, 

CLK)  ; 
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BIN73:  OneBin  port  map  (DRFM74,  Phaselnc73,  Gain73,  URB73, 
ODVout74,  PSVout74,  Q74,  174,  Q73,  173,  ODVout73,  PSVout73 
CLK)  ; 

BIN74:  OneBin  port  map  (DRFM75,  Phaselnc74,  Gain74,  URB74, 
ODVout75,  PSVout75,  Q75,  175,  Q74,  174,  ODVout74,  PSVout74 
CLK)  ; 

BIN75:  OneBin  port  map  (DRFM76,  Phaselnc75,  Gain75,  URB75, 
ODVout76,  PSVout76,  Q76,  176,  Q75,  175,  ODVout75,  PSVout75 
CLK)  ; 

BIN76:  OneBin  port  map  (DRFM77,  Phaselnc76,  Gain76,  URB76, 
ODVout77,  PSVout77,  Q77,  177,  Q76,  176,  ODVout76,  PSVout76 
CLK)  ; 

BIN77:  OneBin  port  map  (DRFM78,  Phaselnc77,  Gain77,  URB77, 
ODVout78,  PSVout78,  Q78,  178,  Q77,  177,  ODVout77,  PSVout77 
CLK)  ; 

BIN78:  OneBin  port  map  (DRFM79,  Phaselnc78,  Gain78,  URB78, 
ODVout79,  PSVout79,  Q79,  179,  Q78,  178,  ODVout78,  PSVout78 
CLK)  ; 

BIN79:  OneBin  port  map  (DRFM80,  Phaselnc79,  Gain79,  URB79, 
ODVout80,  PSVout80,  Q80,  180,  Q79,  179,  ODVout79,  PSVout79 
CLK)  ; 

BIN80:  OneBin  port  map  (DRFM81,  Phaselnc80,  Gain80,  URB80, 
ODVout81,  PSVout81,  Q81,  181,  Q80,  180,  ODVout80,  PSVout80 
CLK)  ; 

BIN81:  OneBin  port  map  (DRFM82,  Phaselnc81,  Gain81,  URB81, 
ODVout82,  PSVout82,  Q82,  182,  Q81,  181,  ODVout81,  PSVout81 
CLK)  ; 

B1N82:  OneBin  port  map  (DRFM83,  Phaselnc82,  Gain82,  URB82, 
ODVout83,  PSVout83,  Q83,  183,  Q82,  182,  ODVout82,  PSVout82 
CLK)  ; 

B1N83:  OneBin  port  map  (DRFM84,  Phaselnc83,  Gain83,  URB83, 
ODVout84,  PSVout84,  Q84,  184,  Q83,  183,  ODVout83,  PSVout83 
CLK)  ; 

B1N84:  OneBin  port  map  (DRFM85,  Phaselnc84,  Gain84,  URB84, 
ODVout85,  PSVout85,  Q85,  185,  Q84,  184,  ODVout84,  PSVout84 
CLK)  ; 

B1N85:  OneBin  port  map  (DRFM86,  Phaselnc85,  Gain85,  URB85, 
ODVout86,  PSVout86,  Q86,  186,  Q85,  185,  ODVout85,  PSVout85 
CLK)  ; 

B1N86:  OneBin  port  map  (DRFM87,  Phaselnc86,  Gain86,  URB86, 
ODVout87,  PSVout87,  Q87,  187,  Q86,  186,  ODVout86,  PSVout86 
CLK)  ; 

B1N87:  OneBin  port  map  (DRFM88,  Phaselnc87,  Gain87,  URB87, 
ODVout88,  PSVout88,  Q88,  188,  Q87,  187,  ODVout87,  PSVout87 
CLK)  ; 

B1N88:  OneBin  port  map  (DRFM89,  Phaselnc88,  Gain88,  URB88, 
ODVout89,  PSVout89,  Q89,  189,  Q88,  188,  ODVout88,  PSVout88 
CLK)  ; 

B1N89:  OneBin  port  map  (DRFM90,  Phaselnc89,  Gain89,  URB89, 
ODVout90,  PSVout90,  Q90,  190,  Q89,  189,  ODVout89,  PSVout89 
CLK)  ; 

B1N90:  OneBin  port  map  (DRFM91,  Phaselnc90,  Gain90,  URB90, 
ODVout91,  PSVout91,  Q91,  191,  Q90,  190,  ODVout90,  PSVout90 
CLK)  ; 

B1N91:  OneBin  port  map  (DRFM92,  Phaselnc91,  Gain91,  URB91, 
ODVout92,  PSVout92,  Q92,  192,  Q91,  191,  ODVout91,  PSVout91 
CLK)  ; 


UNP,  PRB18 
DRFM73, 

UNP,  PRB18 
DRFM74, 

UNP,  PRB18 
DRFM75, 

UNP,  PRB19 
DRFM76, 

UNP,  PRB19 
DRFM77, 

UNP,  PRB19 
DRFM78, 

UNP,  PRB19 
DRFM79, 

UNP,  PRB20 
DRFM80, 

UNP,  PRB20 
DRFM81, 

UNP,  PRB20 
DRFM82, 

UNP,  PRB20 
DRFM83, 

UNP,  PRB21 
DRFM84, 

UNP,  PRB21 
DRFM85, 

UNP,  PRB21 
DRFM86, 

UNP,  PRB21 
DRFM87, 

UNP,  PRB22 
DRFM88, 

UNP,  PRB22 
DRFM89, 

UNP,  PRB22 
DRFM90, 

UNP,  PRB22 
DRFM91, 
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BIN92:  OneBin  port  map  (DRFM93,  Phaselnc92,  Gain92,  URB92,  UNP,  PRB23, 
ODVout93,  PSVout93,  Q93,  193,  Q92,  192,  ODVout92,  PSVout92,  DRFM92, 

CLK)  ; 

BIN93:  OneBin  port  map  (DRFM94,  Phaselnc93,  Gain93,  URB93,  UNP,  PRB23, 
ODVout94,  PSVout94,  Q94,  194,  Q93,  193,  ODVout93,  PSVout93,  DRFM93, 

CLK)  ; 

BIN94:  OneBin  port  map  (DRFM95,  Phaselnc94,  Gain94,  URB94,  UNP,  PRB23, 
ODVout95,  PSVout95,  Q95,  195,  Q94,  194,  ODVout94,  PSVout94,  DRFM94, 

CLK)  ; 

BIN95:  OneBin  port  map  (DRFM96,  Phaselnc95,  Gain95,  URB95,  UNP,  PRB23, 
ODVout96,  PSVout96,  Q96,  196,  Q95,  195,  ODVout95,  PSVout95,  DRFM95, 

CLK)  ; 

BIN96:  OneBin  port  map  (DRFM97,  Phaselnc96,  Gain96,  URB96,  UNP,  PRB24, 
ODVout97,  PSVout97,  Q97,  197,  Q96,  196,  ODVout96,  PSVout96,  DRFM96, 

CLK)  ; 

BIN97:  OneBin  port  map  (DRFM98,  Phaselnc97,  Gain97,  URB97,  UNP,  PRB24, 
ODVout98,  PSVout98,  Q98,  198,  Q97,  197,  ODVout97,  PSVout97,  DRFM97, 

CLK)  ; 

BIN98:  OneBin  port  map  (DRFM99,  Phaselnc98,  Gain98,  URB98,  UNP,  PRB24, 
ODVout99,  PSVout99,  Q99,  199,  Q98,  198,  ODVout98,  PSVout98,  DRFM98, 

CLK)  ; 

BIN99:  OneBin  port  map  (DRFMIOO,  Phaselnc99,  Gain99,  URB99,  UNP,  PRB24, 
ODVoutlOO,  PSVoutlOO,  QlOO,  1100,  Q99,  199,  ODVout99,  PSVout99,  DRFM99, 
CLK)  ; 

BINIOO:  OneBin  port  map  (DRFMIOI,  PhaseInclOO,  GainlOO,  URBIOO,  UNP, 
PRB25,  ODVoutlOl,  PSVoutlOl,  QlOl,  1101,  QlOO,  1100,  ODVoutlOO, 
PSVoutlOO,  DRFMIOO,  CLK)  ; 

BINIOI:  OneBin  port  map  (DRFM102,  PhaselnclOl,  GainlOl,  URBlOl,  UNP, 
PRB25,  ODVoutl02,  PSVoutl02,  Q102,  1102,  QlOl,  1101,  ODVoutlOl, 
PSVoutlOl,  DRFMIOI,  CLK) ; 

B1N102:  OneBin  port  map  (DRFM103,  Phaselncl02,  Gainl02,  URB102,  UNP, 
PRB25,  ODVoutl03,  PSVoutl03,  Q103,  1103,  Q102,  1102,  ODVoutl02, 
PSVoutl02,  DRFM102,  CLK)  ; 

B1N103:  OneBin  port  map  (DRFM104,  Phaselncl03,  Gainl03,  URB103,  UNP, 
PRB25,  ODVoutl04,  PSVoutl04,  Q104,  1104,  Q103,  1103,  ODVoutl03, 
PSVoutl03,  DRFM103,  CLK)  ; 

B1N104:  OneBin  port  map  (DRFM105,  Phaselncl04,  Gainl04,  URB104,  UNP, 
PRB26,  ODVoutlOO,  PSVoutlOO,  QlOO,  1105,  Q104,  1104,  ODVoutl04, 
PSVoutl04,  DRFM104,  CLK)  ; 

BINIOO:  OneBin  port  map  (DRFM106,  PhaseInclOO,  GainlOO,  URBIOO,  UNP, 
PRB26,  ODVoutlOO,  PSVoutlOO,  QlOO,  1106,  QlOO,  1105,  ODVoutl05, 
PSVoutlOO,  DRFMIOO,  CLK) ; 

BINIOO:  OneBin  port  map  (DRFM107,  PhaseInclOO,  GainlOO,  URBIOO,  UNP, 
PRB26,  ODVoutl07,  PSVoutlOl,  Q107,  1107,  QlOO,  1106,  ODVoutlOO, 
PSVoutlOO,  DRFMIOO,  CLK)  ; 

B1N107:  OneBin  port  map  (DRFM108,  PhaselnclOl,  GainlOl,  URBlOl,  UNP, 
PRB26,  ODVoutl08,  PSVoutlOO,  Q108,  1108,  QlOl,  1107,  ODVoutlOl, 
PSVoutlOl,  DRFMIOI,  CLK)  ; 

B1N108:  OneBin  port  map  (DRFM109,  PhaselnclOS,  GainlOO,  URBIOO,  UNP, 
PRB27,  ODVoutlOO,  PSVoutlOO,  QlOO,  1109,  Q108,  1108,  ODVoutlOO, 
PSVoutlOO,  DRFMIOO,  CLK) ; 

BINIOO:  OneBin  port  map  (DRFMllO,  PhaseInclOO,  GainlOO,  URBIOO,  UNP, 
PRB27,  ODVoutllO,  PSVoutllO,  QUO,  1110,  QlOO,  1109,  ODVoutlOO, 
PSVoutlOO,  DRFMIOO,  CLK)  ; 

BlNllO:  OneBin  port  map  (DRFMlll,  PhaselncllO,  GainllO,  URBllO,  UNP, 
PRB27,  ODVoutlll,  PSVoutlll,  Qlll,  1111,  QUO,  1110,  ODVoutllO, 
PSVoutllO,  DRFMllO,  CLK)  ; 
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BINlll:  OneBin  port  map  (DRFM112,  Phaseinclll,  Gainlll,  URBlll,  UNP, 
PRB27,  0DVoutll2,  PSVoutll2,  Q112,  1112,  Qlll,  1111,  ODVoutlll, 
PSVoutlll,  DRFMlll,  CLK) ; 

B1N112:  OneBin  port  map  (DRFM113,  Phaselncll2,  Gainll2,  URB112,  UNP, 
PRB28,  0DVoutll3,  PSVoutll3,  Q113,  1113,  Q112,  1112,  0DVoutll2, 
PSVoutll2,  DRFM112,  CLK)  ; 

B1N113:  OneBin  port  map  (DRFM114,  Phaselncll3,  Gainll3,  URB113,  UNP, 
PRB28,  ODVoutll4,  PSVoutll4,  Q114,  1114,  Q113,  1113,  ODVoutll3, 
PSVoutll3,  DRFM113,  CLK)  ; 

B1N114:  OneBin  port  map  (DRFM115,  Phaselncll4,  Gainll4,  URB114,  UNP, 
PRB28,  ODVoutllS,  PSVoutllS,  Q115,  1115,  Q114,  1114,  ODVoutll4, 
PSVoutll4,  DRFM114,  CLK) ; 

B1N115:  OneBin  port  map  (DRFM116,  Phaselncll5,  Gainll5,  URB115,  UNP, 
PRB28,  ODVoutlie,  PSVoutllG,  Q116,  1116,  Q115,  1115,  0DVoutll5, 
PSVoutll5,  DRFM115,  CLK)  ; 

B1N116:  OneBin  port  map  (DRFM117,  Phaselncll6,  Gainll6,  URB116,  UNP, 
PRB29,  0DVoutll7,  PSVoutll7,  Q117,  1117,  Q116,  1116,  0DVoutll6, 
PSVoutll6,  DRFM116,  CLK)  ; 

B1N117:  OneBin  port  map  (DRFM118,  Phaselncll7,  Gainll7,  URB117,  UNP, 
PRB29,  0DVoutll8,  PSVoutll8,  Q118,  1118,  Q117,  1117,  0DVoutll7, 
PSVoutll7,  DRFM117,  CLK) ; 

B1N118:  OneBin  port  map  (DRFM119,  Phaselncll8,  Gainll8,  URB118,  UNP, 
PRB29,  ODVoutll9,  PSVoutll9,  Q119,  1119,  Q118,  1118,  0DVoutll8, 
PSVoutll8,  DRFM118,  CLK) ; 

B1N119:  OneBin  port  map  (DRFM120,  Phaselncll9,  Gainll9,  URB119,  UNP, 
PRB29,  ODVoutl20,  PSVoutl20,  Q120,  1120,  Q119,  1119,  ODVoutll9, 
PSVoutll9,  DRFM119,  CLK)  ; 

B1N120:  OneBin  port  map  (DRFM121,  Phaselncl20,  Gainl20,  URB120,  UNP, 
PRB30,  ODVoutl21,  PSVoutl21,  Q121,  1121,  Q120,  1120,  ODVoutl20, 
PSVoutl20,  DRFM120,  CLK)  ; 

B1N121:  OneBin  port  map  (DRFM122,  Phaselncl21,  Gainl21,  URB121,  UNP, 
PRB30,  ODVoutl22,  PSVoutl22,  Q122,  1122,  Q121,  1121,  ODVoutl21, 
PSVoutl21,  DRFM121,  CLK) ; 

B1N122:  OneBin  port  map  (DRFM123,  Phaselncl22,  Gainl22,  URB122,  UNP, 
PRB30,  ODVoutl23,  PSVoutl23,  Q123,  1123,  Q122,  1122,  ODVoutl22, 
PSVoutl22,  DRFM122,  CLK)  ; 

B1N123:  OneBin  port  map  (DRFM124,  Phaselncl23,  Gainl23,  URB123,  UNP, 
PRB30,  ODVoutl24,  PSVoutl24,  Q124,  1124,  Q123,  1123,  ODVoutl23, 
PSVoutl23,  DRFM123,  CLK)  ; 

B1N124:  OneBin  port  map  (DRFM125,  Phaselncl24,  Gainl24,  URB124,  UNP, 
PRB31,  ODVoutl25,  PSVoutl25,  Q125,  1125,  Q124,  1124,  ODVoutl24, 
PSVoutl24,  DRFM124,  CLK) ; 

B1N125:  OneBin  port  map  (DRFM126,  Phaselncl25,  Gainl25,  URB125,  UNP, 
PRB31,  ODVoutl26,  PSVoutl26,  Q126,  1126,  Q125,  1125,  ODVoutl25, 
PSVoutl25,  DRFM125,  CLK)  ; 

B1N126:  OneBin  port  map  (DRFM127,  Phaselncl26,  Gainl26,  URB126,  UNP, 
PRB31,  ODVoutl27,  PSVoutl27,  Q127,  1127,  Q126,  1126,  ODVoutl26, 
PSVoutl26,  DRFM126,  CLK)  ; 

B1N127:  OneBin  port  map  (PhaseSamp,  Phaselncl27,  Gainl27,  URB127,  UNP, 
PRB31,  ODVin,  PSVin,  "00000000000000000",  "00000000000000000",  Q127, 
1127, ODVoutl27,  PSVoutl27,  DRFM127,  CLK)  ; 

--  Output  Format: 

--  63-41  I  40  I  39  I  38-22  |  21-5  |  4-0 

--unused  |  PSVout  |  ODVout  |  Q  |  1  |  DRFM 

Output (40) <=PSVout0; 

Output (39) <=ODVoutO; 
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Output (38  downto  22)<=Q; 

Output (21  downto  5)<=I; 

Output  (4  downto  0)<=DRFM0; 

Output (63  downto  41) <="00000000000000000000000" 
end  One28Bin; 
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APPENDIX  B 


This  appendix  contains  the  support  files  required 
compile  and  execute  the  VHDL  macros  on  the  SRC-6E. 

A.  4  BIN  .BOX  FILE 

module  FourBin  (Input,  Output,  CLK)  /*  synthesis  syn  black  box  */ 
input  [63:0]  Input; 
output  [63:0]  Output; 
input  CLK; 

endmodule 


B.  4  BIN  .INFO  FILE 

BEGIN_DEF  "Four_Bin" 

MACRO  =  "FourBin"; 

STATEFUL  =  NO; 

EXTERNAL  =  NO; 

PIPELINED  =  YES; 

LATENCY  =  21; 

INPUTS  =  1: 

10  =  INT  64  BITS  ( Input [ 63 : 0 ] ) 


OUTPUTS  =  1: 

OO  =  INT  64  BITS  (Output  [  63 : 0 ] ) 


IN_SIGNAL  :  1  BITS  "CLK"="CLOCK" ; 
END  DEF 


C.  4  BIN  .MC  FILE 

/*  FourBinS.mc  */ 

#include  <libmap.h> 

#define  IBANK  MAX_OBM_SIZE 

void  FourBinS  (  int  n,  long  long  a[],  long  long  b[],  int  mapno) 


struct  { 

long  long  al [IBANK]; 
}  banka; 
struct  { 

long  long  bl [IBANK]; 
}  bankb; 


=  banka. al; 
=  bankb. bl; 


long  long  *al 
long  long  *bl 


97 


int  i,  nbytes; 

/*  nbytes  =  n*8;*/ 
nbytes  =  ( ( (n+3) /4) *4) *8; 

cm2obm_a (al,  a,  nbytes); 
wait_server_a ( ) ; 

for  (i  =  0;  i  <  n;  i++)  { 

Four_Bin (al [i] ,  &bl[i]); 

} 

obm2cm_b  (b,  bl,  nbytes) ; 
wait  server  b ( ) ; 


D.  4  BIN  .C  FILE 

/*  main.c  */ 

#include  <stdio.h> 

#include  <sys/types . h> 

#include  <libmap.h> 

#define  SAMPLE  MAX  500000  /*  Maximum  number  of  phase  samples.  */ 

#define  PADDING  17  /*  number  of  padding  sets  before  and  after  the  sam 
pies  */ 

void  FourBinSO; 

void  *Cache  Aligned  Allocate (); 

void  Cache  Aligned  Free(); 

int  main  ()  { 

int  i,  nmap,  mapnum,  numof samps,  nbytes; 
short  phzsampdat [ SAMPLE  MAX],  dummysample; 

FILE  *fileptr; 

long  10,  QO,  OtherBinDataSIN,  OtherBinDataCOS ; 
char  phzincdat [16] ,  ampscaldat [16] ,  URB[16]; 

char  PRB,  UNP,  PSVin,  ODVin,  ODVoutO,  PSVoutO,  DRFMO,  binnumber 
long  long  temp,  binprogram; 
long  long*  dataa; 
long  long*  datab; 

/*  Timing  variables.  */ 

double  tstart,  tend,  tcume,  ttotal; 
extern  double  second]); 

/*  initialization  */ 

tstart  =  second]); 
mapnum  =  0 ; 
nmap  =  1 ; 
numof samps=0 ; 
dummy  s  amp 1 e = 0 ; 

/*  Read  in  phase  increment  values.  */ 

if  ((fileptr  =  f open ( "dataf iles/phzinc . txt" ,  "r"))  ==  NULL) 
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\n\nTERMINAL  FAULT:  File  phzinc.txt  not 


fprintf (stderr, 
found . \n\n" ) ; 

binnumber  =  0; 

while  ( f scanf ( f ileptr ,  "%x",  &phzincdat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  amplitude  scaling  values  */ 

if  ((fileptr  =  fopen ( "dataf iles/ampscal . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  ampscal.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( f scanf ( fileptr ,  "%x",  Sampscaldat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  pulse  phase  samples  */ 

if  ((fileptr  =  fopen ( "dataf iles/phzsamp . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzsamp.txt  not 

found . \n\n" ) ; 

numof samps  =  0; 

while  ( f scanf ( fileptr ,  "%x",  Sphzsampdat [numof samps ] )  !=  EOF) 

{ 

numof samps ++; 

} 

fclose (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  tcume; 

printf  ("\n  Number  of  input  samples:  %d",  numof samps ) ; 

printf  ("\n  Time  for  disk  access  of  input  data:  %19.10f",  tcume); 

tstart  =  second  0; 

nbytes  =  ( ( (numofsamps+PADDING*2+4) /4) *4) *8; 
dataa=Cache_Aligned_Allocate (nbytes) ; 
datab=Cache_Aligned_Allocate (nbytes)  ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  allocate  the  data  caches  for  the  MAP: 

%19.10f",  tcume); 

tstart  =  second  0; 


/*  pack  the  data  as  follows: 


Input : 

formats,  cycle 

begins 

when  PRB=1,  1 

format 

per 

clock 

ten  bits  of  each  bin 

:  10  I 

9-5 

14-1  1 

URB 1 Phaseinc 

1  Gain  | 

63-48 

147-38  137-28 

1  27-18 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  bin3  1  bin2 

1  binl 

binO 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

63-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

99 


--  The  first  sample  can  be  entered  on  clock  2  if  PSVin  and  UNP  are 
taken  high 
*/ 

for  (i=0;  i<16;  i++) { 

URB [i] =1; } /*set  all  bins  to  be  used*/ 
for  (1=0;  i<PADDING;  i++){/*pad  the  control  signals  before  and 
after* / 

dataa[i]=0;  /*set  PSVin,  UNP,  and  PRB  =  000  */ 

dataa [ i+numof samps+PADDING+1 ] =0 ;  /*set  PSVin,  UNP,  and  PRB 

=  000  */ 

} 

PSVin=0; 

UNP=0; 

PRB=1;  /*  start  the  program  sequence*/ 
temp=((long  long)  URB [3]  &  OxlLL) ; 

temp=temp<<5  |  ((long  long)  phzincdat[3]  &  OxlFLL)  ; 
temp=temp<<4  |  ((long  long)  ampscaldat [ 3 ]  &  OxFLL)  ; 
temp=temp<<l  |  ((long  long)  URB[2]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat[2]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [2 ]  &  OxFLL); 

temp=temp<<l  |  ((long  long)  URB [ 1 ]  &  OxlLL); 

temp=temp<<5  |  ((long  long)  phzincdat[l]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1 ]  &  OxFLL); 
temp=temp<<l  |  ((long  long)  URB[0]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat[0]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 0 ]  &  OxFLL); 

temp=temp<<5  |  ((long  long)  dummysample  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  1  ((long  long)  PRB  &  OxlLL); 

dataa [ PADDING] =temp; 

PRB=0; 

PSVin=l;  /*  start  sample  input  */ 

UNP=1;  /*  use  new  programming  */ 
temp=((long  long)  phzsampdat [ 0 ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 

dataa [ 1+PADDING] =temp; 

UNP=0; 

for  (i  =1;  i  <  numofsamps;  i++)  { 

temp=((long  long)  phzsampdat [ i ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 

dataa [ i+PADDING+1 ] =temp; } 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  pack  the  data  for  transfer  to  MAP:  %19.10f", 
tcume) ; 
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tstart  =  second  0; 

/*  allocate  map  to  this  problem  */ 
if  (map_allocate  (nmap) )  { 

fprintf  (stdout,  "Map  allocation  f ailed . \n" ) ; 
exit  ( 1 )  ; 

} 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  allocation:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  call  compute  */ 

FourBinS  (numof samps+PADDING*2+l ,  dataa,  datab,  mapnum) ; 
tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  call:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  Open  output  file  for  writing.  */ 

if  ((fileptr  =  fopen ( "dataf lles/IandQout . txt" ,  "w"))  ==  NULL) 
fprintf ( stderr,  " \n\nTERMINAL  FAULT:  File 
IandQout.txt  cannot  be  written . \n\n" )  ; 

/*  put  headers  in  output  file  */ 

fprintf ( fileptr ,  "lout  Qout  ODVout  PSVout  DRFM\n"); 
fprintf  ( fileptr ,  " - - - - - \n"); 

/*  unpack  the  results  and  send  to  output*/ 

for  (i  =0;  i  <  numof samps+PADDING*2+l ;  i++)  { 

DRFMO=datab [i]  &  OxlFLL; 

I0=datab  [i]  »5  &  OxlFFFFLL; 

Q0=datab  [i]  »22  &  OxlFFFFLL; 

ODVoutO=datab [ i ] >>3 9  &  OxlLL; 

PSVoutO=datab [i] >>40  &  OxlLL; 

fprintf ( fileptr ,  "%05X  %05X  %01X  %01X  %02X\n", 

10,  QO,  ODVoutO,  PSVoutO,  DRFMO); 

} 

fclose  (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  unpack  results  and  send  to  output  file: 
%19.10f",  tcume); 

tstart  =  second  0; 

/*  free  the  map  */ 

if  (map  free  (nmap) )  { 

printf  ("Map  deallocation  failed.  \n"); 
exit  ( 1 )  ; 

} 


tend  =  second  0; 
tcume  =  tend  -  tstart; 
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ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  MAP:  %19.10f", 
tstart  =  second  0; 

Cache_Aligned_Free ( (char  *)dataa) ; 
Cache_Aligned_Free ( (char  *)datab) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  data  arrays:  %1 
printf  ("\n  Total  Time:  %1 9 . lOf \n\n" ,  ttotal) 

} 

E.  8  BIN  .BOX  FILE 

module  EightBin  (Input,  Output,  CLK)  /*  synthesis 
input  [63:0]  Input; 
output  [63:0]  Output; 
input  CLK; 

endmodule 


F.  8  BIN  .INFO  FILE 

BEGIN_DEF  "Eight_Bin" 

MACRO  =  "EightBin"; 

STATEFUL  =  NO; 

EXTERNAL  =  NO; 

PIPELINED  =  YES; 

LATENCY  =  21; 

INPUTS  =  1: 

10  =  INT  64  BITS  ( Input  [  63 : 0 ] ) 


OUTPUTS  =  1: 

OO  =  INT  64  BITS  (Output [ 63 : 0 ] ) 


IN_SIGNAL  :  1  BITS  "CLK"="CL0CK" ; 
END  DEF 


G.  8  BIN  .MC  FILE 

/*  EightBinS.mc  */ 

#include  <libmap.h> 

#define  IBANK  MAX_OBM_SIZE 

void  EightBinS  (  int  n,  long  long  a[],  long  long 

{ 

struct  { 

long  long  al [IBANK]; 
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tcume)  ; 


9 . lOf " ,  tcume) ; 


syn  black  box  */ 


b [ ] ,  int  mapno) 


}  banka; 
struct  { 

long  long  bl[ IBANK]; 

}  bankb; 

long  long  *al  =  banka. al; 

long  long  *bl  =  bankb. bl; 


int  1,  nbytes; 

/*  nbytes  =  n*8;*/ 
nbytes  =  ( ( (n+3) /4) *4) *8; 

cm2obm_a (al,  a,  nbytes); 
wait_server_a ( )  ; 

for  (i  =  0;  i  <  n;  i++)  { 

Eight_Bin (al [i] ,  &bl[i]); 

} 

obm2cm_b  (b,  bl,  nbytes) ; 
wait  server  b(); 


H.  8  BIN  .C  FILE 

/*  main.c  */ 

#include  <stdio.h> 

#include  <sys/types . h> 

#include  <libinap.h> 

#define  SAMPLE  MAX  500000  /*  Maximum  number  of  phase  samples.  */ 

#define  PADDING  17  /*  number  of  padding  sets  before  and  after  the  sam 
pies  */ 

void  EightBinSO; 

void  *Cache  Aligned  Allocate (); 

void  Cache  Aligned  Free(); 

int  main  ()  { 

int  i,  nmap,  mapnum,  numof samps,  nbytes; 
short  phzsampdat [ SAMPLE  MAX] , dummy sample; 

FILE  *fileptr; 

long  10,  QO,  OtherBinDataSIN,  OtherBinDataCOS ; 
char  phzincdat [16] ,  ampscaldat [16] ,  URB[16]; 

char  PRB,  UNP,  PSVin,  ODVin,  ODVoutO,  PSVoutO,  DRFMO,  binnumber 
long  long  temp,  binprogram; 
long  long*  dataa; 
long  long*  datab; 

/*  Timing  variables.  */ 

double  tstart,  tend,  tcume,  ttotal; 
extern  double  second]); 

/*  initialization  */ 


103 


tstart  =  second  0; 
mapnum  =  0 ; 
nmap  =  1 ; 
numof samps=0 ; 
dummy  s  amp 1 e = 0 ; 

/*  Read  in  phase  increment  values.  */ 

if  ((fileptr  =  f open ( "dataf iles/phzinc . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzinc.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sphzincdat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  amplitude  scaling  values  */ 

if  ((fileptr  =  fopen ( "dataf iles/ampscal . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  ampscal.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sampscaldat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  pulse  phase  samples  */ 

if  ((fileptr  =  fopen ( "dataf iles/phzsamp . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzsamp.txt  not 

found . \n\n" ) ; 

numof samps  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sphzsampdat [numof samps ] )  !=  EOF) 

{ 

numof samps ++; 

} 

fclose (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  tcume; 

printf  ("\n  Number  of  input  samples:  %d",  numofsamps); 

printf  ("\n  Time  for  disk  access  of  input  data:  %19.10f",  tcume); 

tstart  =  second  0; 

nbytes  =  ( ( (numofsamps+PADDING*2+2) /4) *4) *8; 
dataa=Cache_Aligned_Allocate (nbytes)  ; 
datab=Cache_Aligned_Allocate (nbytes)  ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  allocate  the  data  caches  for  the  MAP: 

%19.10f",  tcume); 

tstart  =  second  0; 
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/*  pack  the  data  as  follows: 


Input : 

formats,  cycle  begins 

when  PRB=1,  1 

format 

per 

clock 

ten  bits  of  each  bin:  10  | 

9-5 

14-1  1 

URB 1 Phaseinc 

1  Gain  | 

63-48 

147-38  137-28  |27-18 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  bin3  1  bin2  |  binl 

binO 

1  sample 

1  PSVin 

1  UNP 

1  PRB 

63-48 

147-38  137-28  |27-18 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  bin7  1  bin6  |  binS 

bin4 

1  sample 

1  PSVin 

1  UNP 

1  PRB 

63-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  sample 

1  PSVin 

1  UNP 

1  PRB 

--  The 

first  sample  can  be  entered 

on  clock 

3  if 

PSVin 

and 

taken  high 
*/ 


for  (1=0;  i<16;  i++) { 

URB [i] =1; } /*set  all  bins  to  be  used*/ 
for  (1=0;  i<PADDING;  i++){/*pad  the  control  signals  before  and 
after* / 

dataa[i]=0;  /*set  PSVin,  UNP,  and  PRB  =  000  */ 

dataa [ i+numof samps+PADDING+2 ] =0 ;  /*set  PSVin,  UNP,  and  PRB 

=  000  */ 

} 


PSVin=0; 

UNP=0; 

PRB=1;  /*  start  the  program 
temp=((long  long)  URB [3]  & 


temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 

temp=temp<<5 

temp=temp<<l 

temp=temp<<l 

temp=temp<<l 


( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 
( (long 


long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 

long) 


dataa [ PADDING] =temp; 


PRB=0; 

temp= ( (long 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 


long)  URB 
( (long 
I  ( (long 
I  ( (long 
( (long 
( (long 
I  ( (long 
( (long 
( (long 
I  ( (long 
I  ( (long 
( (long 


[7]  & 
long) 
long) 
long) 
long) 
long) 
long) 
long) 
long) 
long) 
long) 
long) 
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sequence* / 

OxlLL)  ; 

phzincdat[3]  &  OxlFLL) ; 
ampscaldat [ 3 ]  &  OxFLL) ; 
URB [2]  &  OxlLL); 
phzincdat[2]  &  OxlFLL); 
ampscaldat [2 ]  &  OxFLL); 

URB[1]  &  OxlLL); 
phzincdat[l]  &  OxlFLL); 
ampscaldat [ 1 ]  &  OxFLL); 
URB[0]  &  OxlLL); 
phzincdat[0]  &  OxlFLL); 
ampscaldat [ 0 ]  &  OxFLL); 
dummysample  &  OxlFLL) ; 
PSVin  &  OxlLL)  ; 

UNP  &  OxlLL) ; 

PRB  &  OxlLL)  ; 


OxlLL)  ; 

phzincdat[7]  &  OxlFLL); 
ampscaldat [ 7 ]  &  OxFLL); 

URB [6]  &  OxlLL); 
phzincdat[6]  &  OxlFLL); 
ampscaldat [ 6]  &  OxFLL); 
URB [5]  &  OxlLL); 
phzincdat[5]  &  OxlFLL); 
ampscaldat [ 5 ]  &  OxFLL); 
URB [4]  &  OxlLL); 
phzincdat[4]  &  OxlFLL); 
ampscaldat [ 4 ]  &  OxFLL); 


temp=temp<<5  |  ((long  long)  dummy sample  &  OxlFLL) ; 
temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL) ; 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 

dataa [ 1+PADDING] =temp; 

PSVin=l;  /*  start  sample  input  */ 

UNP=1;  /*  use  new  programming  */ 
temp=((long  long)  phzsampdat [ 0 ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 

dataa [2+PADDING] =temp; 

UNP=0; 


for  (i  =1;  i  <  numofsamps;  i++)  { 

temp=((long  long)  phzsampdat [ i ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 
dataa [ i+PADDING+2 ] =temp; } 


tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  pack  the  data  for  transfer  to  MAP:  %19.10f", 
tcume)  ; 


tstart  =  second  0; 

/*  allocate  map  to  this  problem  */ 
if  (map_allocate  (nmap) )  { 

fprintf  (stdout,  "Map  allocation  failed. \n"); 
exit  ( 1 )  ; 

} 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  allocation:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  call  compute  */ 

EightBinS  (numof samps+PADDING*2+2 ,  dataa,  datab,  mapnum) ; 
tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  call:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  Open  output  file  for  writing.  */ 

if  ((fileptr  =  fopen ( "dataf lles/IandQout . txt" ,  "w"))  ==  NULL) 
fprintf ( stderr,  " \n\nTERMINAL  FAULT:  File 
IandQout.txt  cannot  be  written . \n\n" ) ; 

/*  put  headers  in  output  file  */ 

fprintf ( fileptr ,  "lout  Qout  ODVout  PSVout  DRFM\n"); 
fprintf  ( fileptr ,  " - - - - - \n"); 
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/*  unpack  the  results  and  send  to  output*/ 

for  (i  =0;  i  <  numof samps+PADDING*2+2 ;  i++)  { 

DRFM0=datab [i]  &  OxlFLL; 

I0=datab  [i]  »5  &  OxlFFFFLL; 

Q0=datab  [i]  »22  &  OxlFFFFLL; 

ODVoutO=datab [i] >>39  &  OxlLL; 

PSVoutO=datab [i] >>40  &  OxlLL; 

fprintf ( f ileptr ,  "%05X  %05X  %01X  %01X  %02X\n", 

10,  QO,  ODVoutO,  PSVoutO,  DRFMO); 

} 

fclose  (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  unpack  results  and  send  to  output  file: 
%19.10f",  tcume); 

tstart  =  second  0; 

/*  free  the  map  */ 

if  (map  free  (nmap) )  { 

printf  ("Map  deallocation  failed.  \n"); 
exit  ( 1 )  ; 

} 


tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  MAP:  %19.10f",  tcume); 
tstart  =  second  0; 

Cache_Aligned_Free ( (char  *)dataa)  ; 

Cache_Aligned_Free ( (char  *)datab) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  data  arrays:  %19.10f",  tcume); 
printf  ("\n  Total  Time:  %19 . 10f\n\n",  ttotal); 


} 

I.  16  BIN  .BOX  FILE 

module  SixteenBin  (Input,  Output,  CLK)  /*  synthesis  syn  black  box  */ 
input  [63:0]  Input; 
output  [63:0]  Output; 
input  CLK; 

endmodule 


J.  16  BIN  .INFO  FILE 

BEGIN_DEF  "Sixteen_Bin" 

MACRO  =  "SixteenBin"; 
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STATEFUL  =  NO; 

EXTERNAL  =  NO; 

PIPELINED  =  YES; 

LATENCY  =  21; 

INPUTS  =  I: 

10  =  INT  64  BITS  ( Input [ 63 : 0 ] ) 


OUTPUTS  =  1: 

OO  =  INT  64  BITS  (Output  [  63 : 0 ] ) 


IN_SIGNAL  :  1  BITS  "CLK"="CLOCK" ; 
END  DEE 


K.  16  BIN  .MC  FILE 

/*  SixteenBinS .me  */ 
#include  <libmap.h> 


#define  IBANK  MAX_OBM_SIZE 

void  SixteenBinS  (  int  n,  long  long  a[],  long  long  b[],  int  mapno) 

{ 

struct  { 

long  long  al [IBANK]; 

}  banka; 
struct  { 

long  long  bl [IBANK]; 

}  bankb; 


long  long  *al  =  banka. al; 

long  long  *bl  =  bankb. bl; 


int  1,  nbytes; 

/*  nbytes  =  n*8;*/ 
nbytes  =  ( ( (n+3) /4) *4) *8; 

cm2obm_a(al,  a,  nbytes); 
wait_server_a ( )  ; 

for  (1  =  0;  1  <  n;  i++)  { 

Sixteen_Bin (al [1] ,  &bl[i]); 

} 

obm2cm_b  (b,  bl,  nbytes) ; 
wait  server  b(); 


L.  16  BIN  .C  FILE 

/*  main.c  */ 
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#include  <stdio.h> 

#include  <sys/types . h> 

#include  <libinap.h> 

#define  SAMPLE  MAX  500000  /*  Maximum  number  of  phase  samples.  */ 

#define  PADDING  17  /*  number  of  padding  sets  before  and  after  the  sam¬ 
ples  */ 

void  SixteenBinS ( ) ; 

void  *Cache  Aligned  Allocate (); 

void  Cache  Aligned  Free(); 

int  main  ()  { 

int  i,  nmap,  mapnum,  numof samps,  nbytes; 
short  phzsampdat [ SAMPLE  MAX],  dummysample; 

FILE  *fileptr; 

long  10,  QO,  OtherBinDataSIN,  OtherBinDataCOS ; 
char  phzincdat [16] ,  ampscaldat [16] ,  URB[16]; 

char  UNP,  PRB,  PSVin,  ODVin,  ODVoutO,  PSVoutO,  DRFMO,  binnumber; 
long  long  temp,  binprogram; 
long  long*  dataa; 
long  long*  datab; 

/*  Timing  variables.  */ 

double  tstart,  tend,  tcume,  ttotal; 
extern  double  second (); 

/*  initialization  */ 

tstart  =  second  0; 
mapnum  =  0 ; 
nmap  =  1 ; 
numof samps=0 ; 
dummy  s  amp 1 e = 0 ; 

/*  Read  in  phase  increment  values.  */ 

if  ((fileptr  =  fopen ( "dataf iles/phzinc . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzinc.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sphzincdat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  amplitude  scaling  values  */ 

if  ((fileptr  =  fopen ( "dataf iles/ampscal . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  ampscal.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sampscaldat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 
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/*  Read  in  pulse  phase  samples  */ 

if  ((fileptr  =  f open ( "dataf iles/phzsamp . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzsamp.txt  not 

found . \n\n" ) ; 

numof samps  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sphzsampdat [numof samps ] )  !=  EOF) 

{ 

numof samps ++; 

} 

fclose (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  tcume; 

printf  ("\n  Number  of  input  samples:  %d",  numof samps ) ; 

printf  ("\n  Time  for  disk  access  of  input  data:  %19.10f",  tcume); 

tstart  =  second  0; 

nbytes  =  ( ( (numofsamps+PADDING*2+4) /4) *4) *8; 
dataa=Cache_Aligned_Allocate (nbytes) ; 
datab=Cache_Aligned_Allocate (nbytes)  ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  allocate  the  data  caches  for  the  MAP: 

%19.10f",  tcume); 


tstart  =  second  0; 

/*  pack  the  data  as  follows: 

Input:  formats,  cycle  begins  when  PRB=1,  1 
ten  bits  of  each  bin:  10  |  9-5  1 4-1  | 

URB I Phaseinc | Gain | 


63-48 

1  47-38 

1  37-28 

unused 

1  bin3 

1  bin2 

63-48 

1  47-38 

1  37-28 

unused 

1  bin7 

1  bin6 

63-48 

1  47-38 

1  37-28 

unused 

1  binll 

1  binlO 

63-48 

1  47-38 

1  37-28 

unused 

63-8 

1  binl5 

1  binl4 

27-18  1 

17-8 

1  7-3 

binl  1 

binO 

1  sample 

27-18  1 

17-8 

1  7-3 

bin5  1 

bin4 

1  sample 

27-18  1 

17-8 

I  7-3 

bin9  I 

bin8 

1  sample 

27-18  1 

17-8 

1  7-3 

binl3  1 

binl2 

1  sample 

format  per  clock 


I  0 

I  PRB 

I  0 

I  PRB 

I  0 

I  PRB 

I  0 

I  PRB 

I  0 

I  PRB 

and  UNP  are 


2  I  1 

PSVin  I UNP 

2  I  1 

PSVin  I UNP 

2  I  1 

PSVin  I UNP 

2  I  1 

PSVin  I UNP 
7-3  I  2  I  1 

unused  I  sample  | PSVin  | UNP 


--  The  first  sample  can  be  entered  on  clock  5  if  PSVin 
taken  high 
*/ 


for 

for 

after* / 


=  000  */ 


(i=0;  i<16;  i++) { 

URB [i] =1; } /*set  all  bins  to  be  used*/ 

(i=0;  i<PADDING;  i++){/*pad  the  control  signals  before  and 

dataa[i]=0;  /*set  PSVin,  UNP,  and  PRB  =  000  */ 

dataa [ i+numof samps+PADDING+4 ] =0 ;  /*set  PSVin,  UNP,  and  PRB 

} 


PSVin=0; 
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UNP=0; 

PRB=1;  /*  start  the  program  sequence*/ 
temp=((long  long)  URB[3]  &  OxlLL) ; 

temp=temp<<5  |  ((long  long)  phzincdat [ 3 ]  &  OxlFLL) ; 
temp=temp<<4  |  ((long  long)  ampscaldat [ 3 ]  &  OxFLL) ; 
temp=temp<<l  |  ((long  long)  URB[2]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat[2]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [2 ]  &  OxFLL); 

temp=temp<<l  |  ((long  long)  URB [ 1 ]  &  OxlLL); 

temp=temp<<5  |  ((long  long)  phzincdat[l]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1 ]  &  OxFLL); 
temp=temp<<l  |  ((long  long)  URB[0]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat [0]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 0 ]  &  OxFLL); 

temp=temp<<5  |  ((long  long)  dummysample  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 

dataa [ PADDING] =temp; 

PRB=0; 

temp=((long  long)  URB [7]  &  OxlLL); 

temp=temp<<5  |  ((long  long)  phzincdat[7]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 7 ]  &  OxFLL); 

temp=temp<<l  |  ((long  long)  URB[6]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat[6]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 6]  &  OxFLL); 
temp=temp<<l  |  ((long  long)  URB[5]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat [5]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 5 ]  &  OxFLL); 
temp=temp<<l  |  ((long  long)  URB[4]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat[4]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 4 ]  &  OxFLL); 
temp=temp<<5  |  ((long  long)  dummysample  &  OxlFLL); 
temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 

temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 

dataa [ 1+PADDING] =temp; 

temp=((long  long)  URB [11]  &  OxlLL); 

temp=temp<<5  |  ((long  long)  phzincdat [ 1 1 ]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1 1 ]  &  OxFLL); 

temp=temp<<l  |  ((long  long)  URB[10]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat [10]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1 0 ]  &  OxFLL); 

temp=temp<<l  |  ((long  long)  URB[9]  &  OxlLL); 

temp=temp<<5  |  ((long  long)  phzincdat[9]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 9 ]  &  OxFLL); 
temp=temp<<l  |  ((long  long)  URB [ 8 ]  &  OxlLL); 

temp=temp<<5  |  ((long  long)  phzincdat[8]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 8 ]  &  OxFLL); 

temp=temp<<5  |  ((long  long)  dummysample  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 

temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 

temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 

dataa [2+PADDING] =temp; 
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temp=((long  long)  URB[15]  & 
temp=temp<<5  |  ((long  long) 
temp=temp<<4  |  ((long  long) 
temp=temp<<l  |  ((long  long) 
temp=temp<<5  |  ((long  long) 
temp=temp<<4  |  ((long  long) 
temp=temp<<l  |  ((long  long) 
temp=temp<<5  |  ((long  long) 
temp=temp<<4  |  ((long  long) 
temp=temp<<l  |  ((long  long) 
temp=temp<<5  |  ((long  long) 
temp=temp<<4  |  ((long  long) 
temp=temp<<5  |  ((long  long) 
temp=temp<<l  |  ((long  long) 
temp=temp<<l  |  ((long  long) 
temp=temp<<l  |  ((long  long) 
dataa [ 3+PADDING] =temp; 


OxlLL)  ; 

phzincdat [15]  &  OxlFLL) ; 
ampscaldat [15]  &  OxFLL) ; 
URB[14]  &  OxlLL); 
phzincdat [ 14 ]  &  OxlFLL); 

ampscaldat [ 14 ]  &  OxFLL); 

URB[13]  &  OxlLL); 
phzincdat [13]  &  OxlFLL); 
ampscaldat [13]  &  OxFLL); 
URB[12]  &  OxlLL); 
phzincdat [ 12 ]  &  OxlFLL); 

ampscaldat [ 12 ]  &  OxFLL); 

dummysample  &  OxlFLL) ; 
PSVin  &  OxlLL) ; 

UNP  &  OxlLL) ; 

PRB  &  OxlLL) ; 


PSVin=l;  /*  start  sample  input  */ 

UNP=1;  /*  use  new  programming  */ 
temp=((long  long)  phzsampdat [ 0 ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 
dataa [ 4+PADDING] =temp; 


UNP=0; 

for  (i  =1;  i  <  numofsamps;  i++)  { 

temp=((long  long)  phzsampdat [ i ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 
dataa [ i+PADDING+4 ] =temp; } 


tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  pack  the  data  for  transfer  to  MAP:  %19.1 
tcume)  ; 


tstart  =  second  0; 

/*  allocate  map  to  this  problem  */ 
if  (map_allocate  (nmap) )  { 

fprintf  (stdout,  "Map  allocation  failed. \n"); 
exit  ( 1 )  ; 

} 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  allocation:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  call  compute  */ 

SixteenBinS  (numof samps+PADDING*2+4 ,  dataa,  datab,  mapnum) ; 
tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 
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printf  ("\n  Time  for  MAP  call:  %19.10f",  tcume) ; 

tstart  =  second  0; 

/*  Open  output  file  for  writing.  */ 

if  ((fileptr  =  fopen ( "dataf lles/IandQout . txt" ,  "w"))  ==  NULL) 
fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File 

IandQout.txt  cannot  be  written . \n\n" ) ; 

/*  put  headers  in  output  file  */ 

fprintf ( fileptr ,  "lout  Qout  ODVout  PSVout  DRFM\n"); 
fprintf  ( fileptr ,  " - - - - - \n"); 

/*  unpack  the  results  and  send  to  output*/ 

for  (i  =0;  i  <  numof samps+PADDING*2+4 ;  i++)  { 

DRFMO=datab [i]  &  OxlFLL; 

I0=datab  [i]  »5  &  OxlFFFFLL; 

Q0=datab  [i]  »22  &  OxlFFFFLL; 

ODVoutO=datab [i] >>39  &  OxlLL; 

PSVoutO=datab [ i ] >>4 0  &  OxlLL; 

fprintf ( fileptr ,  "%05X  %05X  %01X  %01X  %02X\n", 

10,  QO,  ODVoutO,  PSVoutO,  DRFMO); 

} 

fclose  (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  unpack  results  and  send  to  output  file: 
%19.10f",  tcume); 

tstart  =  second  0; 

/*  free  the  map  */ 

if  (map  free  (nmap) )  { 

printf  ("Map  deallocation  failed.  \n"); 
exit  ( 1 )  ; 

} 


tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  MAP:  %19.10f",  tcume); 
tstart  =  second  0; 

Cache_Aligned_Free ( (char  *)dataa)  ; 

Cache_Aligned_Free ( (char  *)datab) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  data  arrays:  %19.10f",  tcume); 
printf  ("\n  Total  Time:  %1 9 . lOf \n\n" ,  ttotal); 


} 

M.  64  BIN  .BOX  FILE 
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module  SixtyFourBin  (Input,  Output,  CLK)  /*  synthesis  syn  black  box  */ 

r 

input  [63:0]  Input; 
output  [63:0]  Output; 
input  CLK; 

endmodule 

N.  64  BIN  .INFO  FILE 

BEGIN_DEF  "SixtyFour_Bin" 

MACRO  =  "SixtyFourBin"; 

STATEFUL  =  NO; 

EXTERNAL  =  NO; 

PIPELINED  =  YES; 

LATENCY  =  133; 

INPUTS  =  1: 

10  =  INT  64  BITS  ( Input [ 63 : 0 ] ) 


OUTPUTS  =  1: 

OO  =  INT  64  BITS  (Output  [  63  :  0 ] ) 


IN_SIGNAL  :  1  BITS  "CLK"="CLOCK" ; 

END_DEF 

O.  64  BIN  .MC  FILE 

/*  SixtyFourBinS .me  */ 

#include  <libmap.h> 

#define  IBANK  MAX_OBM_SIZE 

void  SixtyFourBinS  (  int  n,  long  long  a[],  long  long  b[],  int  mapno) 


struct  { 

long  long  al [IBANK]; 

}  banka; 
struct  { 

long  long  bl [IBANK]; 

}  bankb; 

long  long  *al  =  banka. al; 

long  long  *bl  =  bankb. bl; 


int  i,  nbytes; 

/*  nbytes  =  n*8;*/ 
nbytes  =  ( ( (n+3) /4) *4) *8; 

cm2obm_a(al,  a,  nbytes); 
wait  server  a ( ) ; 
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for  (i  =  0;  i  <  n;  i++)  { 

SixtyFour_Bin (al [i] ,  &bl[i]); 

} 

obm2cm_b  (b,  bl,  nbytes) ; 
wait  server  b ( ) ; 


P.  64  BIN  .C  FILE 

/*  main.c  */ 

#include  <stdio.h> 

#include  <sys/types . h> 

#include  <libinap.h> 

#define  SAMPLE  MAX  500000  /*  Maximum  number  of  phase  samples.  */ 

#define  PADDING  64  /*  number  of  padding  sets  before  and  after  the  sam 
pies  */ 

void  SixtyFourBinS  ( ) ; 

void  *Cache  Aligned  Allocate (); 

void  Cache  Aligned  Free(); 

int  main  ()  { 

int  i,  nmap,  mapnum,  numof samps,  nbytes; 
short  phzsampdat [ SAMPLE  MAX],  dummysample; 

FILE  *fileptr; 

long  10,  QO,  OtherBinDataSIN,  OtherBinDataCOS ; 
char  phzincdat [ 64 ] ,  ampscaldat [ 64 ] ,  URB[64]; 

char  UNP,  PRB,  PSVin,  ODVin,  ODVoutO,  PSVoutO,  DRFMO,  binnumber 
long  long  temp,  binprogram; 
long  long*  dataa; 
long  long*  datab; 

/*  Timing  variables.  */ 

double  tstart,  tend,  tcume,  ttotal; 
extern  double  second]); 

/*  initialization  */ 

tstart  =  second]); 
mapnum  =  0 ; 
nmap  =  1 ; 
numof samps=0 ; 
dummy  s  amp 1 e = 0 ; 

/*  Read  in  phase  increment  values.  */ 

if  ]]fileptr  =  f open  ]  "dataf iles/phzinc . txt" ,  "r"))  ==  NULL) 

fprintf  ] stderr ,  " \n\nTERMINAL  FAULT:  File  phzinc.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ] f scanf  ] f ileptr ,  "%x",  Sphzincdat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 
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fclose (fileptr)  ; 


/*  Read  in  amplitude  scaling  values  */ 

if  ((fileptr  =  fopen ( "dataf iles/ampscal . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  ampscal.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sampscaldat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  pulse  phase  samples  */ 

if  ((fileptr  =  fopen ( "dataf iles/phzsamp . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzsamp.txt  not 

found . \n\n" ) ; 

numof samps  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sphzsampdat [numof samps ] )  !=  EOF) 

{ 

numof samps ++; 

} 

fclose (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  tcume; 

printf  ("\n  Number  of  input  samples:  %d",  numof samps ) ; 

printf  ("\n  Time  for  disk  access  of  input  data:  %19.10f",  tcume); 

tstart  =  second  0; 

nbytes  =  ( ( (numofsamps+PADDING*2+16) /4) *4) *8; 
dataa=Cache_Aligned_Allocate (nbytes)  ; 
datab=Cache_Aligned_Allocate (nbytes)  ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  allocate  the  data  caches  for  the  MAP: 

%19.10f",  tcume); 

tstart  =  second  0; 

/*  pack  the  data  as  follows: 

Input:  formats,  cycle  begins  when  PRB=1,  1  format  per  clock 
ten  bits  of  each  bin:  10  |  9-5  |4-1  | 


URB I Phaseinc | Gain | 


63-48 

!  47-38 

1  37-28 

127-18  1 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  bin3 

1  bin2 

1  binl  1 

binO 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

63-48 

1  47-38 

1  37-28 

127-18  1 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  bin7 

1  bin6 

1  bin5  1 

bin4 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

63-48 

1  47-38 

1  37-28 

127-18  1 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  binll 

1  binlO 

1  bin9  I 

bin8 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

63-48 

1  47-38 

1  37-28 

127-18  1 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  binl5 

1  binl4 

1  binl3| 

binl2 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

more  in 

same  format  up  to  bin63... 

63-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  sample 

1 PSVin 

1  UNP 

PRB 
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--  The  first  sample  can  be  entered  on  clock  65  if  PSVin  and  UNP  are 
taken  high 
*/ 


for  (i=0;  i<64;  i++) { 

URB [i] =1; } /*set  all  bins  to  be  used*/ 
for  (1=0;  i<PADDING;  i++){/*pad  the  control  signals  before  and 
after* / 

dataa[i]=0;  /*set  PSVin,  UNP,  and  PRB  =  000  */ 

dataa [i+numofsamps+PADDING+16] =0;  /*set  PSVin,  UNP,  and  PRB 

=  000  */ 

} 

PSVin=0; 

UNP=0; 

PRB=1;  /*  start  the  program  sequence*/ 

for  ( 1=0 ; i<64 ; 1=1+4 ) { 
if  (i>0)  PRB=0; 

temp=((long  long)  URB [1+3]  &  OxlLL) ; 

temp=temp<<5  |  ((long  long)  phzincdat [ 1+3 ]  &  OxlFLL) ; 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1+3 ]  &  OxFLL) ; 
temp=temp<<l  |  ((long  long)  URB[i+2]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat [ 1+2 ]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1+2 ]  &  OxFLL); 

temp=temp<<l  |  ((long  long)  URB[i+l]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat [ 1+1 ]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1+1 ]  &  OxFLL); 
temp=temp<<l  |  ((long  long)  URB[i]  &  OxlLL); 
temp=temp<<5  |  ((long  long)  phzincdat [1]  &  OxlFLL); 
temp=temp<<4  |  ((long  long)  ampscaldat [ 1 ]  &  OxFLL); 

temp=temp<<5  |  ((long  long)  dummysample  &  OxlFLL); 
temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 
dataa [PADDING+i/ 4] =temp; } 

PSVin=l;  /*  start  sample  input  */ 

UNP=1;  /*  use  new  programming  */ 
temp=((long  long)  phzsampdat [ 0 ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 
dataa [ 1 6+PADDING] =temp; 

UNP=0; 

for  (1  =1;  1  <  numofsamps;  i++)  { 

temp=((long  long)  phzsampdat [ 1 ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 
dataa [i+PADDING+16] =temp; } 

tend  =  second  0; 
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tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  pack  the  data  for  transfer  to  MAP:  %19.10f 
tcume)  ; 

tstart  =  second  0; 

/*  allocate  map  to  this  problem  */ 
if  (map_allocate  (nmap) )  { 

fprintf  (stdout,  "Map  allocation  f ailed . \n"  )  ; 
exit  ( 1 )  ; 

} 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  allocation:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  call  compute  */ 

SixtyFourBinS  (numofsamps+PADDING*2+16,  dataa,  datab,  mapnum) 
tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  call:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  Open  output  file  for  writing.  */ 

if  ((fileptr  =  fopen ( "dataf iles/IandQout . txt" ,  "w"))  ==  NULL) 
fprintf ( stderr,  " \n\nTERMINAL  FAULT:  File 
IandQout.txt  cannot  be  written . \n\n" ) ; 

/*  put  headers  in  output  file  */ 

fprintf ( fileptr ,  "lout  Qout  ODVout  PSVout  DRFM\n"); 
fprintf  ( fileptr ,  " - - - - - \n"); 

/*  unpack  the  results  and  send  to  output*/ 

for  (i  =0;  i  <  numofsamps+PADDING*2+16;  i++)  { 

DRFMO=datab [i]  &  OxlFLL; 

I0=datab  [i]  »5  &  OxlFFFFLL; 

Q0=datab  [i]  »22  &  OxlFFFFLL; 

ODVoutO=datab [i] >>39  &  OxlLL; 

PSVoutO=datab [i] >>40  &  OxlLL; 

fprintf ( fileptr ,  "%05X  %05X  %01X  %01X  %02X\n" 

10,  QO,  ODVoutO,  PSVoutO,  DRFMO); 

} 

fclose  (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  unpack  results  and  send  to  output  file: 
%19.10f",  tcume); 

tstart  =  second  0; 

/*  free  the  map  */ 

if  (map  free  (nmap) )  { 
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printf  ("Map  deallocation  failed.  \n"); 
exit  ( 1 ) ; 

} 


tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  MAP:  %19.10f",  tcume); 
tstart  =  second  0; 

Cache_Aligned_Free ( (char  *)dataa)  ; 

Cache_Aligned_Free ( (char  *)datab) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  data  arrays:  %19.10f",  tcume); 
printf  ("\n  Total  Time:  %19 . 10f\n\n",  ttotal); 

} 

Q.  128  BIN  .BOX  FILE 

module  One28Bin  (Input,  Output,  CLK)  /*  synthesis  syn  black  box  */ 
input  [63:0]  Input; 
output  [63:0]  Output; 
input  CLK; 

endmodule 


R.  128  BIN  .INFO  FILE 

BEGIN_DEF  "One28_Bin" 

MACRO  =  "One28Bin"; 

STATEFUL  =  NO; 

EXTERNAL  =  NO; 

PIPELINED  =  YES; 

LATENCY  =  261; 

INPUTS  =  1: 

10  =  INT  64  BITS  ( Input [ 63 : 0 ] ) 


OUTPUTS  =  1: 

OO  =  INT  64  BITS  (Output  [  63 : 0 ] ) 


IN_SIGNAL  :  I  BITS  "CLK"="CL0CK" ; 
END  DEF 


S.  128  BIN  .MC  FILE 

/*  One28BinS.mc  */ 

#include  <libmap.h> 

#define  IBANK  MAX  OBM  SIZE 
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void  One28BinS  (  int  n,  long  long  a[],  long  long  b[],  int  mapno) 

{ 

struct  { 

long  long  al[ IBANK]; 

}  banka; 
struct  { 

long  long  bl [IBANK]; 

}  bankb; 

long  long  *al  =  banka. al; 

long  long  *bl  =  bankb. bl; 


int  1,  nbytes; 

/*  nbytes  =  n*8;*/ 
nbytes  =  ( ( (n+3) /4) *4) *8; 

cm2obm_a (al,  a,  nbytes); 
wait_server_a ( ) ; 

for  (1=0;  i<n;  i++)  { 

One28_Bin (al [1] ,  &bl[i]); 

} 

obm2cm_b  (b,  bl,  nbytes) ; 
wait_server_b ( ) ; 

} 

T.  128  BIN  .C  FILE 

/*  main.c  */ 

#include  <stdio.h> 

#include  <sys/types . h> 

#include  <libinap.h> 

#define  SAMPLE  MAX  500000  /*  Maximum  number  of  phase  samples.  */ 

#define  PADDING  128  /*  number  of  padding  sets  before  and  after  the  sam¬ 
ples  */ 

void  One28BinS(); 

void  *Cache  Aligned  Allocate  (); 

void  Cache  Aligned  Free(); 

int  main  ()  { 

int  1,  nmap,  mapnum,  numof samps,  nbytes; 
short  phzsampdat [ SAMPLE  MAX],  dummysample; 

FILE  *fileptr; 

long  10,  QO,  OtherBinDataSIN,  OtherBinDataCOS ; 
char  phzincdat [ 12 8 ] ,  ampscaldat [ 12 8 ]  ,  URB[128]; 

char  UNP,  PRB,  PSVin,  ODVin,  ODVoutO,  PSVoutO,  DRFMO,  binnumber; 
long  long  temp,  binprogram; 
long  long*  dataa; 
long  long*  datab; 
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/*  Timing  variables.  */ 

double  tstart,  tend,  tcume,  ttotal; 
extern  double  second (); 

/*  initialization  */ 

tstart  =  second  0; 
mapnum  =  0 ; 
nmap  =  1 ; 
numof samps=0 ; 
dummy  s  amp 1 e = 0 ; 

/*  Read  in  phase  increment  values.  */ 

if  ((fileptr  =  f open ( "dataf iles/phzinc . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzinc.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sphzincdat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  amplitude  scaling  values  */ 

if  ((fileptr  =  fopen ( "dataf iles/ampscal . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  ampscal.txt  not 

found . \n\n" ) ; 

binnumber  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sampscaldat [binnumber ] )  !=  EOF) 

{ 

binnumber++; 

} 

fclose (fileptr) ; 

/*  Read  in  pulse  phase  samples  */ 

if  ((fileptr  =  fopen ( "dataf iles/phzsamp . txt" ,  "r"))  ==  NULL) 

fprintf ( stderr ,  " \n\nTERMINAL  FAULT:  File  phzsamp.txt  not 

found . \n\n" ) ; 

numof samps  =  0; 

while  ( fscanf ( fileptr ,  "%x",  Sphzsampdat [numof samps ] )  !=  EOF) 

{ 

numof samps ++; 

} 

fclose (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  tcume; 

printf  ("\n  Number  of  input  samples:  %d",  numofsamps); 

printf  ("\n  Time  for  disk  access  of  input  data:  %19.10f",  tcume); 

tstart  =  second  0; 

nbytes  =  ( ( (numofsamps+PADDING*2+32) /4) *4) *8; 
dataa=Cache_Aligned_Allocate (nbytes)  ; 
datab=Cache_Aligned_Allocate (nbytes)  ; 


tend  =  second  0; 
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tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  allocate  the  data  caches  for  the  MAP: 
%19.10f",  tcume); 

tstart  =  second  0; 

/*  pack  the  data  as  follows: 

Input:  formats,  cycle  begins  when  PRB=1,  1  format  per  clock 
ten  bits  of  each  bin:  10  |  9-5  |4-1  | 


URB I Phaseinc | Gain | 


63-48 

1  47-38 

1  37-28 

127-18  1 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  bin3 

1  bin2 

1  binl  1 

binO 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

63-48 

1  47-38 

1  37-28 

127-18  1 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  bin7 

1  bin6 

1  bin5  1 

bin4 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

63-48 

1  47-38 

1  37-28 

127-18  I 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  binll 

1  binlO 

1  bin9  1 

bin8 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

63-48 

1  47-38 

1  37-28 

127-18  1 

17-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  binl5 

1  binl4 

1  binl3| 

binl2 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

more  in 

same  format  up  to  binl27... 

63-8 

1  7-3 

1  2 

1  1 

1  0 

unused 

1  sample 

1 PSVin 

1  UNP 

1  PRB 

--  The  first  sample  can  be  entered  on  clock  129  if  PSVin  and  UNP  are 
taken  high 
*/ 


for  (1=0;  i<128;  i++) { 

URB [1] =1; } /*set  all  bins  to  be  used*/ 
for  (1=0;  i<PADDING;  i++){/*pad  the  control  signals  before  and 
after* / 

dataa[i]=0;  /*set  PSVin,  UNP,  and  PRB  =  000  */ 

dataa [ i+numof samps+PADDING+32 ] =0 ;  /*set  PSVin,  UNP,  and  PRB 

=  000  */ 

} 

PSVin=0; 

UNP=0; 

PRB=1;  /*  start  the  program  sequence*/ 

for  ( 1=0 ; i<12 8 ; 1=1+4 ) { 
if  (i>0)  PRB=0; 


temp= ( (long 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 

temp=temp<<l 

temp=temp<<5 

temp=temp<<4 


long)  URB [1+3] 

I  (  (long  long) 
( (long  long) 
I  ( (long  long) 
I  ( (long  long) 
I  ( (long  long) 
I  ( (long  long) 
I  ( (long  long) 
I  ( (long  long) 
I  ( (long  long) 
( (long  long) 
( (long  long) 


&  OxlLL) ; 

phzincdat [ 1+3 ]  &  OxlFLL) ; 
ampscaldat [ 1  +  3 ]  &  OxFLL)  ; 
URB [1+2]  &  OxlLL); 
phzincdat [ 1+2 ]  &  OxlFLL); 

ampscaldat [ 1+2 ]  &  OxFLL); 

URB [1+1]  &  OxlLL); 
phzincdat [ 1+1 ]  &  OxlFLL); 
ampscaldat [ 1+1 ]  &  OxFLL); 
URB[i]  &  OxlLL); 
phzincdat [1]  &  OxlFLL); 
ampscaldat [ 1 ]  &  OxFLL); 


temp=temp<<5 
temp=temp<<l  | 
temp=temp<<l  | 
temp=temp<<l  | 


(  (long  long) 
(  (long  long) 
(  (long  long) 
( (long  long) 
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dummysample  &  OxlFLL) ; 
PSVin  &  OxlLL)  ; 

UNP  &  OxlLL) ; 

PRB  &  OxlLL) ; 


dataa [PADDING+i/ 4] =temp; } 


PSVin=l;  /*  start  sample  input  */ 

UNP=1;  /*  use  new  programming  */ 
temp=((long  long)  phzsampdat [ 0 ]  &  OxlFLL) ; 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL) ; 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  1  ((long  long)  PRB  &  OxlLL); 
dataa [ 32+PADDING] =temp; 

UNP=0; 

for  (i  =1;  i  <  numofsamps;  i++)  { 

temp=((long  long)  phzsampdat [ i ]  &  OxlFLL); 

temp=temp<<l  |  ((long  long)  PSVin  &  OxlLL); 
temp=temp<<l  |  ((long  long)  UNP  &  OxlLL); 
temp=temp<<l  |  ((long  long)  PRB  &  OxlLL); 
dataa [ i+PADDING+32 ] =temp; } 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  pack  the  data  for  transfer  to  MAP:  %19.10f", 
tcume)  ; 

tstart  =  second  0; 

/*  allocate  map  to  this  problem  */ 
if  (map_allocate  (nmap) )  { 

fprintf  (stdout,  "Map  allocation  failed. \n"); 
exit  ( 1 )  ; 

} 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  allocation:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  call  compute  */ 

One28BinS  (numof samps+PADDING*2+32 ,  dataa,  datab,  mapnum) ; 
tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  for  MAP  call:  %19.10f",  tcume); 

tstart  =  second  0; 

/*  Open  output  file  for  writing.  */ 

if  ((fileptr  =  fopen ( "dataf lles/IandQout . txt" ,  "w"))  ==  NULL) 
fprintf ( stderr,  " \n\nTERMINAL  FAULT:  File 
IandQout.txt  cannot  be  written . \n\n" ) ; 

/*  put  headers  in  output  file  */ 

fprintf ( fileptr ,  "lout  Qout  ODVout  PSVout  DRFM\n"); 
fprintf  ( fileptr ,  " - - - - - \n"); 
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/*  unpack  the  results  and  send  to  output*/ 

for  (i  =0;  i  <  numof samps+PADDING*2+32 ;  i++)  { 

DRFM0=datab [i]  &  OxlFLL; 

I0=datab  [i]  »5  &  OxlFFFFLL; 

Q0=datab  [i]  »22  &  OxlFFFFLL; 

ODVoutO=datab [ i ] >>3 9  &  OxlLL; 

PSVoutO=datab [i] >>40  &  OxlLL; 

fprintf ( f ileptr ,  "%05X  %05X  %01X  %01X  %02X\n", 

10,  QO,  ODVoutO,  PSVoutO,  DRFMO); 

} 

fclose  (fileptr) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  unpack  results  and  send  to  output  file: 
%19.10f",  tcume); 

tstart  =  second  0; 

/*  free  the  map  */ 

if  (map  free  (nmap) )  { 

printf  ("Map  deallocation  failed.  \n"); 
exit  ( 1 )  ; 

} 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  MAP:  %19.10f",  tcume); 
tstart  =  second  0; 

Cache_Aligned_Free ( (char  *)dataa) ; 

Cache_Aligned_Free ( (char  *)datab) ; 

tend  =  second  0; 
tcume  =  tend  -  tstart; 
ttotal  =  ttotal  +  tcume; 

printf  ("\n  Time  to  free  the  data  arrays:  %19.10f",  tcume); 
printf  ("\n  Total  Time:  %19 . 10f\n\n",  ttotal); 


U.  EXAMPLE  MAKEFILE  (TAKEN  FROM  4  BINS) 

# - 

#  User  defines  FILES,  MAPFILES,  and  BIN  here 

#  - 

FILES  =  main.c 

MAPFILES  =  FourBinS.mc 

BIN  =  FourBinTest 

# - 

#  User  defined  macros  info  supplied  here 

# 

#  (Leave  commented  out  if  not  used) 
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# 


MACROS 
MY_BLKBOX 
MY_NGO_DIR 
MY  INFO 


# 


=  my  macro/f ourbin . vhd 
=  my_macro/f ourbin . box 
=  my  macro 

=  my  macro/f ourbin . inf o 


#  User  supplied  MCC  and  MFTN  flags 

#  - 


MY_MCC FLAGS 
MY  MFTNFLAGS 


# - 

#  User  supplied  flags  for  C  &  Fortran  compilers 

#  - 


cc 

=  icc 

#  icc  for 

Intel  cc 

for  Gnu 

FC 

=  ifc 

# 

ifc 

for 

Intel 

fll 

for 

Gnu 

LD 

=  ifc 

# 

ifc 

for 

Intel 

CC 

for 

Gnu 

MY_C FLAGS 
MY_F FLAGS 

# - 

#  No  modifications  are  required  below 

#  - 

MAKIN  ?=  $ (MC  ROOT) /opt/srcci/comp/lib/AppRules .make 
include  $ (MAKIN) 


V.  EXAMPLE  PHASE  SAMPLE  INPUT  FILE  (32  INPUTS) 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

OA 

OB 

OC 

OD 

OF 

OF 

10 
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11 


12 

13 

14 

15 

16 

17 

18 
19 
lA 
IB 
1C 
ID 
IE 
IF 

W.  EXAMPLE  RANGE  BIN  GAIN  INPUT  FILE  (4  BINS) 

2 

1 

2 

1 


X.  EXAMPLE  RANGE  BIN  PHASE  ROTATION  INPUT  FILE  (4  BINS) 

IF 

11 

IF 

11 

Y.  EXAMPLE  SCREEN  OUTPUT  (4  BINS  WITH  32  INPUTS) 

Number  of  input  samples:  32 

Time  for  disk  access  of  input  data:  0.0002677690 

Time  to  allocate  the  data  caches  for  the  MAP:  0.0000318932 

Time  to  pack  the  data  for  transfer  to  MAP:  0.0000015922 

Time  for  MAP  allocation:  0.5351942658 

Time  for  MAP  call:  0.0960569127 

Time  to  unpack  results  and  send  to  output  file:  0.0005680144 

Time  to  free  the  MAP:  1.0062198973 

Time  to  free  the  data  arrays:  0.0000037104 
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Total  Time: 


1 . 6383440550 


Z.  EXAMPLE  OUTPUT  DATA  FILE  (4  BINS  WITH  32  INPUTS) 

lout  Qout  ODVout  PSVout  DRFM 


00000 

00000 

0 

1 

00 

00000 

00000 

0 

1 

01 

00000 

00000 

0 

1 

02 

00000 

00000 

0 

1 

03 

OOOOF 

OFFFC 

1 

1 

04 

00007 

OFFFE 

1 

1 

05 

00016 

OFFFB 

1 

1 

06 

OOOOE 

OFFFF 

1 

1 

07 

OOOOE 

00001 

1 

1 

08 

OOOOD 

00005 

1 

1 

09 

OOOOB 

00007 

1 

1 

OA 

OOOOA 

OOOOA 

1 

1 

OB 

00007 

OOOOC 

1 

1 

OC 

00005 

OOOOD 

1 

1 

OD 

00002 

OOOOE 

1 

1 

OE 

OFFFE 

OOOOE 

1 

1 

OF 

OFFFB 

OOOOE 

1 

1 

10 

0FFF7 

OOOOD 

1 

1 

11 

0FFF5 

OOOOB 

1 

1 

12 

0FFF2 

OOOOA 

1 

1 

13 

OFFFO 

00007 

1 

1 

14 

OFFEF 

00005 

1 

1 

15 

OFFEE 

00002 

1 

1 

16 

OFFEE 

OFFFE 

1 

1 

17 

OFFEE 

OFFFB 

1 

1 

18 

OFFEF 

0FFF7 

1 

1 

19 

OFFFl 

0FFF5 

1 

1 

lA 

0FFF2 

0FFF2 

1 

1 

IB 

0FFF6 

OFFFO 

1 

1 

1C 

0FFF8 

OFFEF 

1 

1 

ID 

OFFFB 

OFFEE 

1 

1 

IE 

OFFFF 

OFFEE 

1 

1 

IF 

127 


00001 

OFFEE 

1 

0 

00 

00005 

OFFEF 

1 

0 

00 

00007 

OFFFl 

1 

0 

00 

OOOOA 

0FFF2 

1 

0 

00 

OFFFD 

OFFFA 

1 

0 

00 

00006 

OFFFA 

1 

0 

00 

0FFF8 

00000 

1 

0 

00 

00000 

00000 

0 

0 

00 

00000 

00000 

0 

0 

00 

00000 

00000 

0 

0 

00 
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